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INTRODUCTION 


This project was designed to meet a need by the Nuclear 
Engineering department for a system that would allow the 
monitoring of the status of static RAM memory chips while they 
were undergoing irradiation in the University of Wisconsin 
nuclear reactor. The project consisted of two main parts. 
First, a development system had to be developed that would allow 
the fairly inexperienced user to conceive, design and implement 
different types of programs and hardware circuits without 
requiring an exorbitant amount of effort. Second, the remote 
memory chip testing system had to be built and demonstrated to 
show that the concept of testing while irradiating was a viable 
one. This report is the description of how these two goals were 
met. 

The first part of this report contains a description of the 
actual 6502-based development system, what it consists of, and 
why it is felt that it has met the desired goals. Following 
that, the remote memory chip testing setup will be described, 
including all the hardware and software involved in the remote 
memory chip tests. Finally, an outline of the future of the 


remote memory chip test project will be presented. 




THE 6502-BASED DEVELOPMENT SYSTEM 


The first goal of the project was to create an environment 
that would allow the novice user to write programs in assembly 
language, download them to a microprocessor based system, and 
easily debug them. A choice of which host microcomputer system 
and which microprocessor chip to use in the development system 
had to be made. 

The Osborne I microcomputer was chosen as the host system 
for several reasons. There are two available for use, which 
means that there is always a spare present in case of any hard¬ 
ware problems. They are very versatile machines, coming complete 
with a word processor, two programming languages, and the 
standard GP/M operating system. Many different additional 
programming languages are available for these machines, one of 
which was purchased to be used in this project. The decisive 
advantage of the Osborne I, however, is its' portability. This 
facilitated transportation to and from the nuclear reactor 
laboratory .• 

The microprocessor chosen for use in the development system 
hardware was the Mostek 6502. This is a very popular and 
available microprocessor chip which is used in both the Apple and 
Commadore lines of personal computers. It has no great advantage 
over other microprocessors on the market in terms of speed or 
flexibility, but it does have two features that made it the best 
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choice of processing chips for this project. The 6502 has a 
ra e m o r y — m a p p e d I/O architecture. It has been my experience in 
teaching about microprocessors that the concept of memory-mapped 
I/O is easier for the novice to comprehend than is the more 
conceptually complex I/O mapped architecture used by the Intel 
family of microprocessors. Since the goal of this project was to 
create a system that an inexperienced user can easily use, it was 
important to choose a processor that is fairly easy to under¬ 
stand. 

The 6502 also handles its READY line in an advantageous 
manner. On this microprocessor, when the READY line is brought 
low all internal processing ceases. However, the state of the 
address lines at the time of the READY line transition is con¬ 
stantly refreshed so that by connecting simple logic to the CPU 
and address lines the processor can be stopped with the next 
memory address to be fetched latched on the address lines and 
available for observation. This ability does not exist in the 
Motorola family of processors. They provide means for single¬ 
cycling their processors, but the methods require much more 
hardware and are not nearly as instructive. 

Once the choice of host and microprocessor had been made, 
work could begin on creating a useful system out of them. At 
least four things are needed to maximize the usefulness of the 
system. They are listed here below and a description of each one 
individually is provided in the following sections. 
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1) A 6502 Assembler 

2) An Eprom Programmer 

3) A Monitor to provide useful functions to the user 

4) A Single-stepper to allow the stopping of the processor 

Further information is contained in the appendices, which 
includes program listings of all the software written for this 
project, flow charts of most of the software and user manuals to 
aid the user in operating the system. 
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6502 ASSEMBLER 


In order to allow assembly language code to be written for 
the 6502, an assembler was required. Therefore, writing an 
assembler was the first task to be accomplished. 

The 6502 assembler that was written is a standard two pass 
assembler. During the first pass the symbol table is created and 
filled, and any errors that are detected are associated with the 
line in the file in'which they occurred. Two output files are 
also created for use by the second pass. 

The second pass checks each input line to see if the line 
has an error associated with it. If not, it produces the actual 
machine code for the instruction and updates the two output 
files. If there is an error, the line in which the error 
occurred and the error type are written to the screen and to one 
of the output files, and no code is produced for that line. 

The two output files created are a .LST file that contains 
each line of code and associated machine code values, and a .REL 
file that contains the assembled 6502 machine code. If there was 
an error in a line, the line and the error will appear in the 
output .LST file. The .REL file contains the assembled code in a 
format ready for downloading to an external source. The .REL 
file does not contain the assembled code in Intel Hex format but 
rather a format created for this project. 
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Labels are limited in length to 8 characters; if there is a 
label it must begin in the first column, and if there is not a 
label, the code must begin in some other column. Due to these 
restrictions, it is not a free-format assembler, but it is of the 
same type. A small users manual is contained in this report 
which has more detailed information concerning the use of the 
assembler. 

There were three versions of this assembler written. The 
first versioh was written in a language called CBASIC, a language 
that comes with the Osborne. (CBASIC stands for Compiled BASIC.) 
The language is quite slow, however, and it is well known that 
BASIC is not a well-structured language. Therefore, after using 
the CBASIC version of the assembler for a year, it was decided 
that a faster and more structured assembler was needed. To help 
meet this goal, TURBO Pascal was purchased from Borland Inter¬ 
national. It provided the structured programming language 
necessary to write an assembler that is structured and regular 
enough to be readily modified by someone else if errors are 
discovered or if improvements and/or modifications are desired. 

There are some problems associated with the use of micro¬ 
computers that do not occur when using a minicomputer that can 
seriously affect the methods used to accomplish certain tasks. 
One problem is with processor speed. As mentioned above, the 
original assembler was rewritten in Pascal because of the in¬ 
herent structure and regularity of the language. Originally an 
attempt was made to write the code in purely standard Pascal to 
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allow for complete compatability between systems. However, this 
was causing such severe performance penalties that the attempt 
was abandoned and many non-standard commands of Turbo Pascal were 
incorporated. 

Another major problem with microcomputers is limited disk 
and memory space. The first Pascal version of the assembler was 
actually the most efficient and used the best algorithm. Each 
entire line in the assembly language program has to be parsed so 
that the program counter can be properly incremented. Thus it is 
advantageous to carry as much information as possible over from 
the first pass to the second pass to eliminate the need for a 
second complete parsing of each line. Unfortunately, storage of 
all of the necessary information proved so memory-intensive that 
the assembler could not handle extremely long files. While it is 
true that it is very unlikely that the novice user will write 
programs long enough to cause the assembler to fail, this is not 
a restriction that should be placed on him. Therefore, a second 
Pascal version was written which is somewhat slower but puts 
virtually no limits on the programmer. In this version the only 
information carried over between passes is the error status of 
the line. This requires two complete parses of each line to be 
performed, but this does not seriously degrade the performance, 
since the Osborne seems to be mostly disk I/O bound. This is the 
version that appears in this report. Even this slightly slower 
version has recorded an improvement in speed of over 400% 
compared to the original assembler written in CBASIC. When 
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debugging assembly language programs, constantly having to re¬ 
assemble the code provides a definite appreciation of the speed 
increase. 

Since the Osborne does seems to be mainly disk I/O bound, 
some possible improvements to the assembler include directives 
that would inhibit the production of the .LST and/or the .REL 
files, and perhaps the ability to prevent the printing of the 
symbol table. The way the code is written, these kinds of 
modifications should not be extremely difficult to perform. Any 
reduction in the amount of data written out to the disk should 
significantly increase the performance of the program. 
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6502 MONITOR 


The 6502 development system needs to provide a means for 
downloading test programs and provisions for debugging the down¬ 
loaded software. This capability is provided by the monitor 
program, in conjunction with the Single-Stepper. 

The monitor program was modeled loosely after the monitors 
that are used by the students in ECE 453. In the current develop¬ 
ment system it resides in memory from address F800 to FBFC hex. 
Conceptually it would be best if the monitor existed in the 
highest block of the memory space, since the reset vector needs 
to be stored there anyway (the 6502 reset vector is at FFFC and 
FFFD hex). In its present form, however, the monitor is 1022 
decimal bytes long which is is long enough that the last bytes of 
it occupy those vector locations. The monitor that exists in the 
EPROM of the development system has code specific to this 
application, such as a jump to the memory test program and the 
memory test result printing program. If these were taken out the 
monitor would be small enough to fit in the top IK of memory. 

The monitor program expects serial input from a 6850 UART, 
and assumes that a 6840 timer module provides the timing signals 
to the UART. These expectations can be easily modified, however, 
to provide more flexibility to the user. All that is required is 
some slight modifications to the program, and it is documented 
well enough to allow even the novice to make the necessary 
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changes to the software. 


The monitor uses the top 32 bytes of page zero of RAM for 
its workspace. This leaves the user the bottom 224 bytes of RAM. 
These locations werechosen because the user should not have to 
try to keep track of which locations the monitor is using and 
structure his test programs around those locations. Instead, the 
monitor should use locations that are very unlikely to be used by 
the development program. 

The monitor also has its own stack, to avoid conflicts with 
the user stack. In the 6502, the stack is always on page one of 
memory. On power up or reset, the stack is initialized to the 
top of page one (location 01FF) and grows down toward 0100. The 
monitor creates its own stack, initializing the monitor stack 
pointer to location 010E. This allows the user nearly all of 
page one for his stack. Due to the limited nesting of 
subroutines performed by the monitor, this procedure is 
successful. 

The monitor was written with the inexperienced user in mind. 
A Help instruction is provided, and a simple single breakpoint is 
provided as opposed to the more complex multiple level break¬ 
points found in more advanced monitors. Over one quarter of the 
existing monitor consists of messages to be sent to the screen. 
If these messages were removed there would be plenty of room to 
provide advanced monitor instructions. Perhaps by the time the 
user is experienced enough not to need the various messages he 
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will be experienced enough to modify the monitor to fit his 
needs. It was felt that keeping the total monitor size below IK 
bytes was inportant enough to justify these choices. 

The monitor does provides 7 different functions to the user. 
Each of these are listed and described in detail in Appendix B. 
If more information is desired than what is presented here, the 
actual monitor program is also included in Appendix D. It is 

documented thoroughly enough that between it and the manual all 

\ 

the information necessary is available. 
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6502 SINGLE STEPPER 


This hardware device was designed and built primarily as an 
aid for debugging hardware, although it has proved to be an 
invaluable aid on many occasions when debugging software. 

It was built to allow the user to execute assembly language 
programs one cycle at a time. Technically, it provides a means 
for single cycle execution of a program. It provides a means for 
examining memory directly, as opposed to loading memory values 
into registers and then viewing register the contents. It is 
extremely useful in locating chip select errors, since you can 
have the processor halt at a certain address with that address 
value latched onto the address lines and then observe the differ¬ 
ent chip selects. It is also very good at finding improperly 
connected and/or initialized peripherals, since it allows the 
user to examine their outputs directly while they are selected. 
It is usually used when the system will not run the monitor 
program and the reason is not easily located, or when introducing 
a new kind of chip into an existing system. This circuit is 
essentially a small hardware logic analyzer. It does not perform 
nearly as many different functions as the commercially available 
logic analyzers do, but it is far more portable and using it in 
conjunction with the funtions provided by the monitor program 
have so far proved to be more than sufficient to overcome every 
problem encountered. 
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The device allows the user to execute assembly language code 
one cycle at a time, run freely until a selected pattern appears 
on the address lines, or a combination thereof. In general, the 
code is allowed to run until a certain pattern appears on the 
address lines, at which time the processor is halted and 
execution continues from there one cycle at a time. 

This device works due to the way the 6502 deals with its 
READY line. In most other memory-mapped processors (Motorola 
products, for instance), the ability to halt processing exists, 
but the address lines either revert to tri-state devices or you 
are only able to suspend processing for a nominal number of clock 
cycles (14 on the 6809). However, the 6502 handles the halt 
state differently. The 6502 uses two non-overlapping system 
clocks, 01 and 02. The rising edge of 01 initiates a fetch from 
memory if the R/W line is high, and initiates a memory write if 
the R/W line is low. The address, data, and R/W signals are all 
stable by the falling edge of the 01 clock. The falling edge of 
the 02 signal then latches the incoming data into an internal 
holding register ready for transfer during the subsequent 01 
clock period. If the READY line is low at the rising edge of the 
01 signal and the operation specified is a write, the operation 
continues uninhibited. However, if the operation specified is a 
read, the memory fetch is inhibited and the values placed on the 
address and other signal lines are maintained. This continues 
until the READY line is high at the advent of the 01 signal. 
Therefore, in order to cause the 6502 to step through its program 
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one cycle at a time, a mechanism for causing a single high pulse 
on the READY line in sync with the 02 clock is needed. This 
device incorporates just such a circuit. 

In run mode, when no single cycling is desired, the READY 
line is held high. To begin single cycle execution, a mode is 
entered that generates a single high pulse on the READY line 
during the 02 clock whenever a switch is closed. To allow the 
user; to select the address at which to halt the processor, a set 
of dip switches are provided. The values on the address lines 
are compared to the dip switch values set by the user. Since the 
address lines are stable during the entire time the 02 signal is 
high and our goal is to have the READY line low by the advent of 
the 01 signal, we have the whole of the positive 02 cycle (about 
500 nanoseconds) to perform our compare and produce the required 
signal. This time is more than sufficient since we are using all 
7400 series MSI and SSI parts. When the values on the address 
lines match the dip switch values, the READY signal is brought 
low and the processor is halted. A series of 7485 magnitude 
comparators were used to implement this part of the circuit. 

There must be a way to connect the device to the circuit 
under test. This requirement was met by obtaining a 40 pin clip 
and attaching the necessary leads to it. This clip fastens 
directly onto the processor and leaves the single cycling device 
completely external to the circuit. This makes the device easily 
transportable between systems. Anyone with a machine using a 
6502 as the CPU can make use of this device. I have used it as a 
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tool in repairing both an Apple and a (now-defunct) Ohio 
Scientific Computer. 

In order to prevent the device itself from causing errors by- 
excess loading of the data, address and signal lines, all the 
incoming signals are buffered as they enter the device. The 
circuit uses the 02 clock, the address lines, the data lines, and 
generates the READY signal. The incoming address lines and the 
data lines are buffered by running them through a 7 4 L S 2 4 4 non¬ 
inverting buffer chip. The 02 signal is buffered by simply 
inverting it twice using 7404s. The READY signal does not have 
to be buffered, since it is being generated by the device. Power 
and ground are also obtained from the CPU. This was done to 
increase the portability of the circuit, but it can theoretically 
cause problems as well since there are 24 LEDs on the device as 
well as 17 ICs. This presents a significant current load, and if 
the power supply being used in the circuit under test is too 
small problems could occur. This has not presented itself as a 
problem yet, but the possibility is there. 

To maximize the usefulness of the circuit, an LED was con¬ 
nected to each of the address and data lines. This allows the 
user to see at a glance the state of the various signal lines. 
Using some sort of 7-segment display was considered, but it was 
decided that generally the desired information is the exact state 
of each bit, and the user would spend a lot of time converting 
from hex to binary. Therefore the binary information is pro- 
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vided, and the user spends a lot of time converting from binary 
to hex. 

As it turned out, two completely different systems were 
built to provide and demonstrate the memory test capabilities, so 
this circuit received extensive use. It is almost a necessity to 
have some sort of logic analyzing capability available when 
building and debugging new hardware systems, and this particular 
circuit has worked out extremely well in providing this 
capability.^ It has saved enough time to more than justify the 
time and effort taken to.design and construct it. 
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EPROM BURNER 


' A development system should-provide the user some method for 
creating non-volatile copies of programs. For microprocessor- 
based systems, this implies the ability to program EPROMs. Since 
EPROM programmers are relatively simple, only a listing of the 
EPROM programming software (Appendix H) and a brief description 
of the setup^are included in this report. 

The Osborne I used in this system uses three banks of 
memory. Bank one contains the 64K bytes of RAM used by the 
programmer. Bank zero contains the I/O chips and the system 
ROMs. Bank two is the display and special character generation 
hardware. In order to program EPROMs, it is necessary to control 
directly what is being sent to the programmer. It was decided to 
use the parallel port on the Osborne (a Motorola 6821) and drive 
it from the EPROM programming software directly without involving 
the operating system procedures. However, this requires the 
ability to switch banks, and that presented some complications. 
The programming software contains the assembly language sub¬ 
routine that handles driving the port as data and in the initial¬ 
ization stage writes out to memory the program that it will 
later call. The assembly language subroutine is written in Z80 
assembly language, since the Osborne uses the Z80 as its CPU. 
The actual EPROM programmer is connected via a Centronics printer 
cable to the parallel port of the Osborne, and the values appear- 
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ing on the output latches of the 6821 are captured by latches on 
the EPROM programming circuit. The EPROM programmer consists of a 
set of latches that are driven directly by the 6821, which is in 
turn driven directly by the Z80 code subroutine called repeatedly 
by the Pascal mother program. 

The mother Pascal program provides the interface between the 
user and the EPROM burning program. The EPROM programmer 
provides most of the usual functions found on a standard EPROM 
progammer: tlie ability to verify that an EPROM has been erased, 
the ability to examine the contents of the EPROM, the ability to 
program an EPROM and verify that the programming was successful, 
etc. This programmer has been used many times to program the 
EPROM that contains the system monitor and memory test programs 
and has worked very satisfactorily. 
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REMOTE MEMORY TEST 


The following sections are a description of the second part 
of the project. The goal-of this part of the project was defined 
as follows: 


Provide the ability to put a IK x 4 static RAM memory 
chip into the Nuclear Reactor and subject it to 
radiation. While undergoing irradiation, the status of 
the chip should be constantly monitored. A record of 
the number of errors and when they occurred should be 
kept. The system should be portable, and should be 
reconfigurable. It should also be easy for an in¬ 
experienced user to operate. 


Several things are necessary to meet this goal. The 
provisions for ease of use by an inexperienced user have already 
been detailed in the preceeding sections. The following sections 
will detail the hardware and the software necessary to properly 
meet the testing stipulations. 


Following the details of how the goals of the remote memory 
test project have been met will be a section outlining the future 
of the project and possible modifications to the test algorithm 
currently employed. 
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REMOTE MEMORY TEST SYSTEM DESCRIPTION 


The following experiment was performed at the University of 
Wisconsin Nuclear Reactor (UWNR) to gain information on the 
viability of use of the facility in studying radiation effects in 
electronics. The UWNR is a heterogeneous pool-type reactor 
fueled with TRIGA-FLIP fuel which is 70% enriched in U-235. 
The environment is similar to the type encountered in commercial 
U-235, water moderated, water cooled, thermal reactors. Further 
details of the reactor are available at request from the reactor 
personnel. Metal foil activation was used to determine the 
neutron fluxes while an ionization chamber was used to measure 
the'total gamma flux. Table I contains the results of the char¬ 
acterization of the radiation environment found at the irradia¬ 
tion site located in beam port #3 as shown in figure I. 

The test itself involves subjecting a 2114 IK x 4 Static RAM 
chip to neutron and gamma radiation and logging the number of 
errors and the time at which they occurred. To accomplish this 
a hardware circuit that is connected to the Remote Memory Under 
Test (RMUT) and software to properly drive the hardware is re¬ 
quired. This has been done and the RMUT system is working at 
the present time. 
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Neutron thermal flux = 8.33E7 +—5.8% (cm —2 sec —1) 

= 0.13 Rad(Si)/hr 

Neutron fast flux =» 1.38E8 +-2% (cm A -2 sec -1) 

= 50.0 Rad(Si)/hr 

Gamma Total Dose =» 4.9 kRad(Si)/hr 

= 4900 Rad(Si)/hr 


Table I 


Run# Svanetics Motorola Soft-errors Occur. of. 1st hard error 

hrs. (kRads) 


1 

2 

3 

4 

5 

6 

7 


* 

* 

* 

* 


a, b 

* c 

d, e 
a, b 


* c 

* c 


2.43 (11.9) 
incomplete 
1.14 (5.59) 
2.68 (13.1) 
3.0 (14.7) 

2.0 (9.8) 

incomplete 


Coraiftents: 

a - errors appeared as irradiation is begun, 
b - uniform occurence during irradiation, 
c - occurence coincident with hard errors, 

d - before hard errors, but after an accumulation of a dose, 
e - relatively infrequent. 


Table II 


Sygnetics 


Motorola 


0 


kRads(Si) 

4.95 9.9 
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Figure II 













In order to determine the viability of the project an 
existing GPU board was extensively modified so that it could 
perform the bare minimum of the required tasks. Testing software 
was written that provided good coverage of stuck-at faults, but 
the coverage of the decoder and memory address register faults 
was difficult to obtain. Using this initial setup, the first set 
of results were obtained. 

Regardless of the theoretical import of the results, it had 
been demonstrated that the RMUT concept was a viable one, and 
work began on a better test algorithm and a better test 
generation circuit, one that was designed specifically for the 
task at hand. 

SYSTEM OPERATION 

The memory chip to be irradiated is placed in neutron beam 
port #3 and located near the core of the reactor next to the fuel 
assembly, as shown in figure I. A 25 foot long cable connects the 
18 pin socket in which the memory chip resides to the memory test 
circuit. The RMUT is controlled by a set of latches on the RMUT 
test circuit. These latches are connected to the address, data, 
and control lines of the remote memory chip. They provide an 
address to the remote chip and then read from or write to it 
depending on the function specified by the software. 

Only the address, data, and R/W line values are actually 
modified. The function of the chip select line on the 2114 RAM 
is to allow the chip to be selectively enabled and disabled. 
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This capability is used when these chips are connected to a 
common bus, as is the case in most microprocessor applications. 
That kind of structure is not present here, though, since cur¬ 
rently only one chip at a time can undergo irradiation. There¬ 
fore the chip select line can be held at a low value and does not 
need to change states, which is useful because reducing the 
number of lines changing state in the wire bundle connected to 
the RMUT will help reduce cross-talk noise on the signal lines. 
The chip s erect driven by a latch output and not hard-wired to 
ground, however, because in the future more than one chip may be 
placed in the reactor and tested simultaneously in which case the 
ability to select each one individually will be required. 

The software keeps track of each error and when it occurs 
and stores this information in an internal buffer for later 
examination. The length of this buffer varies depending on how 
much memory is available on the system and the number of bytes 
necessary to completely record and define each error. (Currently 
4 bytes are used: two to represent the time the error was de¬ 
tected and two to represent the number of errors detected during 
that pass.) 

An error is defined as a value read from the RMUT that that 
deviates from the expected value. Two types of errors are 
possible: soft errors and hard errors. A soft error is defined 
as an erroneous value that is correctable, while a hard error is 
an erroneous value that' retains its incorrect value.' In the 
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first memory test program each time an incorrect value was re¬ 
ceived from the RMUT, an explicit attempt was made to correct 
that value. In the second (current) program, no explicit attempt 
at error correction is made due to the memory test algorithm 
used. (In this algorithm,- each RMUT location gets written to and 
read from the several times in each pass of the program, so a 
soft error is discernable from a hard error by the number of 
times it occurs.) 

Since tfie RMUT test circuit has no disk drives, tape drives 
or EEPROMS, another method of creating a permanant record of the 
error information was required. To accomplish this task a pro¬ 
gram to display the contents of the error buffer was written 
which sends the entire error buffer to the serial device. This 
serial device could be either a terminal or a printer. If a 
printer is used, it will provide a hard copy of the information. 
However, the data would then have to be reentered into a computer 
if any serious numerical analysis of the results is desired. 
Here is where the portability feature of the Osborne I is taken 
advantage of. The Osborne is simply carried in, set beside the 
test circuit, and connected through its serial port to the serial 
port of the test circuit. Using a program on the Osborne I that 
takes all input from its serial port and stores that information 
on disk allows the user to create a file on one of the disks 
containing all the information contained in the error buffer. 
Once on disk, the information is available for any kind of anal¬ 
ysis desired. 
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There is no provision for keeping track of the actual time 
of day on the RMUT circuit. However, the software is designed to 
request the starting time of the test run and only begins a pass 
through the RMUT every 5 seconds. Thus, all the information 
necessary to calculate the exact time of an RMUT error is to know 
the number of the pass through the memory on which the error 
occurred and the starting time of the test. This information is 
all that is stored in the error buffer. Originally the test 
program stored the address in the RMUT of the error, the incor¬ 
rect value returned by the RMUT, and what the value should have 
been. However, it was decided after a few test runs to concen¬ 
trate on the hard errors and pay less attention to the soft 
errors, rendering much of this information unnecessary. It also 
took several bytes per error to store all of this information, 
and the more bytes used to quantify each error the smaller the 
number of errors that can be stored in the error buffer. Cur¬ 
rently, in an effort to compress data, only the pass number and 
the number of errors detected during that pass are stored in the 
buffer. 

RESULTS 

A standard IK x 4 NMOS Static RAM was chosen for the study 
due to its widespread usage and availability. The effects of the 
neutron irradiation were determined to be insignificant relative 
to the gamma flux. Simply stated, the effects of displacement 
radiation such as neutrons has greater effect on bulk properties 
than surface effects, whereas ionizing radiation (such as gammas) 
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has a predominate effect on the Silicon-Silicon dioxide interface 
which is applicable to surface phenomena devices such as NMOS 
transistors. 

Memory chips from two vendors, Motorola and Sygnetics, were 
used to get the results shown in Figure II. None of these IC's 
were of a hardened NMOS technology and all devices failed for 
doses less than 100 KRads(Si); whereas, most hardened IC's will 
survive 1 MRad(Si) or more. However, it is noted that there are 
significant variations in the behavior of the IC’s between 
vendors. Details in Figure II. 
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MEMORY TESTING PROGRAM 


The memory testing program is the RMUT software running on 
the RMUT test circuit that causes the hardware to perform the 
test. Several different test algorithms were considered, and two 
different ones were implemented. These are described here. 

OPERATION 

The RMUT must be tested for as many errors as possible, 
since the exact behavior under irradiation is what we are trying 
to determine. We do not know before hand exactly what errors to 
expect. We know which ones are most likely to occur, but a 
complete test must check as many different variables as possible 
to provide the most complete picture. 

The test circuit is not currently capable of testing any of 
the D.C. or A.G. parametric specifications of the RMUT. The only 
thing we can test thoroughly is the functional specifications of 
the memory. Does it work as specified? If a given value is 
stored at a memory location, does it remain there until power is 
turned off, or does it change with time? Are we able to store a 
1 or a 0 to every memory location? Full functional testing of a 
memory chip is impossible in the practical sense since the com¬ 
plexity of such a test would be on the order of 2 n (where n is 
the number of memory cells in the array). 

In order to test the full functionality of the RMUT, a fault 
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model must be specified. There are three different fault models 
generally in use, listed here in the order of their complexity: 

1) Stuck-at Fault model. In this model, one or more of the 
values stored in memory are impossible to change. The value 
might be fixed at either a logic 0 or a logic 1. This model is 
also useful for modeling faults in other parts of the memory 
system. 

2) Coupling Faults model. In this model, a change in the value 
stored at one location causes another location to also change its 
stored value. These two cells are then said to be coupled. 

3) Pattern-sensitive Fault model. This model is the most 
complex and difficult to test. Here a change in the value stored 
in a memory location occurs due to some pattern of l’s and 0’s 
stored in adjacent memory cells. The coupling fault model is 
actually a subset of this model. 

It would be best if one could test for all of these faults. 
However, the best test algorithms for detecting pattern-sensitive 
faults are extremely long and complicated and do not provide an 
increase in error coverage sufficient to justify the extra time 
and effort involved in implementing the algorithm. Many test 
algorithms that detect all coupling faults will also detect all 
possible stuck-at faults, though, so one of these algorithms was 
chosen. 

The first test program used in the experimental system did 
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not provide sufficient error coverage. It was much faster than 
the algorithm now in use, but since it had a random factor built 
into it the exact fault coverage was impossible to determine. 

The test algorithm currently being used is the Nair, Thatte 
and Abraham testing procedure. This procedure tests for all 
stuck-at faults, as well as all coupling faults. It also 
completely tests the memory decoder and the memory address 
register. It is much faster than the other test algorithms that 
provide the same fault coverage, and is fairly straight forward 
to implement. 

The theory behind the testing procedure is described in 
Abadir and Reghbati, Computing Surveys, Volume 15, No. 3, page 
189, Sept. 1983. The test itself consists of an initialization 
step, followed by a sequence of reads from and writes to each 
RMUT memory cell that thoroughly test the RMUT for any decoder, 
memory address register or memory array stuck-at faults. After 
these sequences have been completed, another sequence of reads 
from followed immediately by two complementary writes to the RMUT 
are performed. This sequence tests the RMUT thoroughly for any 
coupling faults. (See Figure III.) 

In the proof of the correctness of this test procedure, it 
is assumed that the memory array to be tested consists of an n x 
1 array of memory cells. This is not the situation being dealt 
with in this case, however. In this case, the test memory is an 
n/4 x 4 array of memory cells. These can be treated conceptually 
as individual cells as far as the testing procedure goes, but 
some coupling fault coverage will still be lost. 
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A semiconductor RAM organization at the functional level of description. 
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In the sequence that tests for coupling faults, each indi¬ 
vidual location is read, and then written both high and low. 
Upon performing the read of the next RMUT location, if the expec¬ 
ted value is not received a coupling error has been detected 
since a write to some other RMUT address has caused the current 
RMUT memory location value to change. The problem faced by 
executing this test sequence on an n x 4 array is that when the 
individual cell being examined is written to, the other three 
cells in th^t row are also written to due to the inherent struc¬ 
ture of the memory. Even though the values written back into the 
other three cells have not been modified, the very act of writing 
values back into those cells will mask any coupling that might 
occur between the individual cell under test and the other cells 
in its row. 

Other possible test algorithms were examined, but none of 
them could surmount this problem while keeping the coupling fault 
coverage intact. Most of the other algorithms did no coupling 
fault testing at all. It was decided that even though the 
coupling fault coverage is reduced by using this algorithm on an 
n x ra array, it still does provides some coupling fault 
coverage. It will still detect any coupling faults that might 
exist between the cell under test and any cell in any other row 
of the memory array. Therefore, it remains as the most thorough 
test algorithm available, which is what was defined as the objec¬ 
tive. 
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This test is an 0(30n) test. In our case, n is 4K, since we 
are conceptually treating the memory array as a 4K x .1 array. We 
drive the remote memory chip through a PIA, so the actual time 
needed to perform the entire memory test is just under 5 seconds. 
This is a longer than desired time for the memory test to run. 
It may be that in the future a test that does not provide the 
coupling fault detection but runs in much less time may be pre- 
ferrable. Without having to do the coupling detection the test 
could be rewritten to run in less than 1/2 second. There are 
applications where this ability would be very useful. 
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6502 CPU BOARD 


The RMUT circuit uses a MOSTEK 6502 microprocessor as its 
CPU. The address space is divided into 32 unique 2K x 8 sections 
by two 74154 4-16 line decoders. Two Motorola 6850 Universal 
Asynchronous Receiver/Transmitters are provided: one is used for 
serial terminal I/O and one is reserved for future expansion. 
(Attaching .a printer to provide a hard copy of data has been 
suggested). There is a Motorola 6840 Programmable Timer Module 
which is used to provide the receive and transmit clocks to the 
6850s. The PTM is also used to generate a 5-second signal used 
by the RMUT testing software as a synchronization signal and to 
keep track of time. Two Motorola 6821 Peripheral Interface 
Adapters are used to provide the actual interface with the RMUT 
chip. Two Hitachi 6116 2k x 8 Static RAM chips are used to 
provide program development workspace RAM and to provide the 
error buffer used by the RMUT software. One 2716 2K x 8 EPROM is 
provided for non-volatile program storage. Another 24-pin socket 
is completely wired as a 2K x 8 memory chip except for the chip 
select line, to allow either another ROM or another RAM to be 
added . 


The CPU address lines are buffered by two 74LS244 non¬ 
inverting buffer chips, and the data lines are buferred by two 
74LS243 bi-directional non-inverting buffer chips. This was done 
to make future expansion easier. 
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All output lines from the 6821s to' the RMUT have 150 ohm 
resistors in series with the signal lines in an effort to reduce 
ringing. There is also an LED that is used as an indicator that 
the memory test program is running. 

This circuit was designed in an effort to meet two design 
goals. One was to provide the RMUT test circuit needed by the 
project, and the second goal was to provide a system that could 
be easily expanded. There is reason to believe that more than 
just IK x 4'static RAM chips will undergo irradiation in the 
future. Since a test facility was desired that could handle any 
number of different kinds of ICs, the ability to easily expand 
the system was very important. In an effort to meet that chal¬ 
lenge, the memory was decoded into 32 2K blocks to allow a max¬ 
imum number of different peripheral devices and memories to be 
added. The power supply also provides over 1 amp of current, 
which should be more than enough current to meet the needs of any 
forseeable system. It is very unlikely that more than two serial 
devices will be required, so two are provided. There may be a 
need for more PIAs, and more memory. These should have no prob¬ 
lem fitting into the system since the address and data lines 
coming from the CPU are all buffered and there are more than 
enough chip selects to go around. All in all, it is felt that 
the two design goals have been satisfactorily met. 
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PROJECT FUTURE 


There are a variety of different experiments that can be 
performed with this test setup. Some examples are listed here. 


1) Different memory tests. 

This one is very likely to occur, since the test used 
currently does not test for everything that might be of interest. 
Some examples: 

a) Where did the error occur? 

This information might provide some insight 
into which part of the chip is inherently the 
weakest. 

b) How many soft errors occurred? 

Current information gained from our tests 
indicate that certain manufacturer's chips are 
more prone to soft errors than others. For 
example, we got a very low number of soft errors 
when testing Motorola chips, and a much higher 
number when testing Sygnetics chips. To properly 
test the soft error condition, should more time be 
allowed between memory reads and writes? Does 
constantly updating the memory affect the soft 
error rate? If so, how? How much time should be 
allowed between passes? Determining the answer to 
, these questions will require an entirely different 

memory test to be written, since the current one 
makes many passes very close in time to one 
another. 

c) Does the RMUT recover over time or are the errors 
permanent? 

We have collected some date to indicate that 
some of the errors fix themselves after a time. 

Most do not, however. The program could be 
modified to test this phenomena. 
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2) Different memory chip tests 

Do other types of memory chips behave the same way? The 
test circuit and program could be modified to test almost any 
kind of memory chip, although testing dynamic ram chips would be 
exceedingly difficult. The 6116 2K x 8 static RAM chip would be 
an interesting candidate. Since it is a CMOS chip, different 
behavior might be expected. 

3) Tests of different IC’s 

The test circuit could be modified to test virtually any IC. 
It does not need to be restricted to testing memory chips. 
Testing the behavior of standard 7400 series TTL or CMOS chips 
could be accomplished with a minimum of effort. Some linear 
chips could also be tested, by putting an A/D converter on the 
test board and monitoring the output of the test chip over time. 
Exercising this option is under consideration by a Nuclear 
Engineering Ph.D. candidate. 

4) Testing more than one chip at a time. 

Currently, provisions are made for testing only one chip at 
at time. However, since the test circuit provides complete 
control of all of the lines of the test chip, it would take only 
minor modifications to the test circuit to allow several chips to 
be placed in the neutron flux simultaneously, and be tested in 
some sort of round robin manner. In order to perform this test 
properly, a much faster algorithm would probably need to be used, 
and the coupling fault coverage would have to be surrendered. 
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There are many other possible uses for this circuitry and 
system. Several memory manufacturing companies have been con¬ 
tacted and have expressed interest in supplying chips to be 
tested in exchange for the results of the study. Since the reac¬ 
tor only runs twice a week, the modification of the test system 
to allow more than one chip to be tested at a time is almost a 
necessity. 

Testing several chips at once would allow several of the 
above tests to be performed simultaneously. Given that four 
chips were being irradiated, there could actually be four differ¬ 
ent types of tests running, one for each chip. Or the same test 
cotfld be run on each chip, with the frequency of testing varied 
for each chip. 

This equipment is available for use by anyone qualified to 
use it. It is hoped that the usage will not end with the 
completion of the tests currently underway. 
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APPENDICES 



6502 Assembler Usage Information 


It is assumed that the person reading this document and 
• using this assembler is familiar with the 6502 assembly language 
and the numerous addressing modes available therein. 

This assembler is a standard assembly language assembler. 
This assembler supports 8 different pseudo-operation codes and 
requires the assembly language instructions to conform to a 
restricted free format. The following is a listing of each 
special feature of the assembler and how to make proper use of 
it. 


Number Representation 

A number is assumed to be decimal unless it is followed by 
an H, which indicates the number is in hexadecimal format. For 
example, 20 is the number 20 decimal, while 20H is 32 decimal. 
When using hex numbers, if the first character of the number is 
in the range A-Z, it must be preceeded by a 0 so that the assem¬ 
bler can differentiate between hex numbers and.labels. If yon 
wish to represent the number 65,536 decimal in hex you would use 
OFFFFH. 


Comments 

Comments may appear anywhere in a line, but they must be 
preceeded by a semi-colon. If a semi-colon appears in a line, 
everything from that point to the* end of the line is ignored. 
Therefore, all comments must appear at the end of the line or on 
a line without code. 


Format 

This is a free-format assembler except for the following: 

1) The first character in the line- is used to determine the 
presence of a label. If there is a label it must start in column 
one, and if there is not a label column one must be blank. 

2) Spaces are used as delimiters, so there must be at least one 
space between the opcode and the operand and one space between 
the end of the operand and the beginning of any comments. 

3) Currently all labels, opcodes and operands must be in upper¬ 
case or an error will occur. 



Labels 


Labels, if they exist, must begin in the first column. They 
cannot be more than 8 characters long. They must begin with a 
valid letter between A and Z. Labels can be used with any 
instruction except the ORG pseudo-op. 


Opcodes 

Opcodes must be valid 6502 instructions or one of the 
pseudo-opcodes supported by this assembler. They cannot start in 
column one, although they can appear anywhere else in the line. 
Some must be followed by operands and others do not need to be. 
There are restrictions on which addressing modes are allowed with 
each instruction.. The assembler is designed to prevent the 
improper assignment of an addressing mode to a given instruction. 
Much time can be saved by paying sufficient attention to the 
capabilities of each instruction before beginning, however. 


Operands 

Operands are required by most of the instructions in the 
instruction set. Some operands need to be modified by the 
character strings listed below, depending on the addressing mode. 
Simple addition and subtraction is allowed within operands, but 
not multiplication or division. Operands will consist of a 
number (decimal or hex), a label, or some combination thereof. 


Addressing Modes 

There are 9 different addressing modes available on the 
6502. Each must have a unique representation for the assembler 
to be able to differentiate between them. The following is a 
list of the addressing modes and how each one is to be 
represented. 




1) Immediate addressing 

The value following the instruction must be preceeded by a 
#_ It can either be a number or a valid label. 

LDA #0A0H ; Load the A register with 160 decimal 





2) Absolute addressing 

The value following the instruction is used as the 2nd and 
3rd bytes of the instruction. 

LDA EXAMPLE ; Load A reg from the location specified by 

; by the label EXAMPLE 


3) Zero Page addressing 

The value following the instruction is used as the second 
byte of the instruction. It is assumed to lie on page zero, so 
the third byte is by default zero. This is specified by 
following the operand with the character string ,0 to signify the 
zero page mode. 

LDA EXAMPLE,0 ; Load A reg from the zero page location 

; specified by the label EXAMPLE 


4) Accumulator 

This mode needs no operand and no operand should be given. 
LSR ; Shift the value in the A reg to the right 


5) Zero Page X, Zero Page Y (Zero Page indexed) 

This mode uses the zero page concept and adds either the X 
or the Y register value to the result depending on which is 
specified. It is represented by following the operand with 
either the string ,X,0 or ,Y,0 depending on which mode is 
desired. 

LDA ZER0,X,0 ; This is zero page indexed by X 

LDA ZERO,Y,0 ; This is zero page indexed by Y 





6) Absolute I, Absolute Y (Absolute indexed) 

The absolute value in the operand is indexed by either X or 
Y depending on which mode is specified. This is represented by 
following the operand with either ,X or ,Y depending on the mode 
desired. 

LDA EXAMPLE,X ; Load A with absolute address specified by 

; label EXAMPLE indexed by X. 

LDA EXAMPLE,Y ; Same as above with Y the index instead of X 


7) Indexed Indirect 

This is a complicated addressing mode whose explanation is 
best left to textbooks or manuals. To represent this addressing 
mode the operand should be preceeded by a left parenthesis and 
followed by the string ,X). 

LDA (ACIA,X) ; This is indexed indirect representation 


8) Indirect Indexed 

This is another complicated addressing mode, whose 
explanation will also be left to the experts. Representing this 
addressing mode is accomplished by enclosing the operand in 
parenthesis and following with a ,Y. 

LDA (ACIA),Y ; This is indirect indexed representation 


9) Indirect 

This addressing mode allows for indirect jumps. It is 
represented by encasing the operand in parenthesis. 


JMP (ACIA) 


; Do an indirect jump 




Pseudo-operations 


Pseudo-ops are assembly language instructions that produce 
no actual 6502 machine code. These operations are instructions 
to the assembler to perform some necessary function, such as 
reserving memory locations or changing the value of the PC* This; 
assembler supports the following eight pseudo-ops. 


ORG : This sets the program counter to the value specified by 

the number or the label following it. There can be no 
label associated with this pseudo-op. 

ORG 0200H ; This sets the PC to 200 hex 


EQU : This equates the label associated with the pseudo-op 

and the label or value following the pseudo-op. 

PROOF EQU 0200H ; PROOF is now equal to 200 hex 


ASC : This takes all the information enclosed in quotation 

marks and converts each character into the associated 
ascii character representation. This is very useful 
for creating messages to be output to the 1/0 device. 

ASC "This is a demonstration" 


BYT : This will store the value(s) following the BYT pseudo¬ 

op in memory beginning at the value of the PC when the 
pseudo-op was encountered. 

BYT 0AH,0DH ; Stores 10 and 13 in consecutive 

; bytes beginning at value of PC 
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RST : This pseudo-op is used to cause the 6502 reset vector. 

to contain the value specified in the instruction. 
This information appears in the .REL file. 

RST BEGIN ; Set the reset vector (OFFFCH 

; and OFFFDH) to value of BEGIN 


IRQ : This pseudo-op performs the same function as the RST 

pseudo-op does. However, it sets the IRQ (maskable) 
interrupt vector instead of the Reset vector. 


NMI : This pseudo-op performs the same function as the RST 

pseudo — op does. However, it sets the NMI (non¬ 
maskable) interrupt vector instead of the Reset vector. 


END : This pseudo-op is not really necessary, and if it is 

omitted no major problems will occur. This exists to 
tell the assembler to stop assembling code. It can be 
useful if you are debugging an isolated section of code 
and do not wish to wait for the entire file to 
assemble. 


This is all the information needed to use the 6502 assembler 
correctly. In order to demonstrate some of the ideas presented 
above, a sample program has been written and assembled that 
contains all the pseudo-ops and all the addressing modes 
discussed above. It is included so that if there are any 
questions about the meanings of any of the descriptions listed 
above the user will have a reference to look at. The program 
does not do anything useful, so do not try running it on an 
existing machine. 


EXAMPLE PROGRAM 


Example program to demonstrate the format and. 
workings of the 6502 assembler. The first part 
is correct and the last part contains errors 
as an illustration of what it will and will not 






• 

9 

accept 

as input. 




1 




• 

9 

Pseudo 

Opcodes 








TEST 

EQU 

0C000H 

• 

9 

TEST=20 Decimal 


M 




TEST2 

EQU 

0C001H 

• 

9 

TEST=20 Hex 







ORG 

0E000H 

9 

Initialize PC 


a 

EOOO 




NINE1 

ASC 

"THIS IS A TEST" 


; ASC Pseudo-op 


J4 48 

49 

53 

20 

49 $3 20 

41 20 

54 45 53 54 




loOE 





BYT 

OAH,ODH,0,1,9 

• 

9 

BYT Pseudo-op 


DA 0E 

00 

01 

09 







lioo 





RST 

0E100H 

• 

9 

Demonstration of the three 

2033 





IRQ 

OPRND 

• 

9 

Interrupt handling Pseudo-ops 

(■1 





NMI 

TEST2 




S 




• 

1 

Addressing formats 




Jo 1 3 

0D 

33 

EO 

NINE2 

ORA 

OPRND 

• 

9 

Absolute 


SO 16 

0D 

35 

E0 

NINE3 

ORA 

OPRND+2 

• 

9 

Absolute with math 


1019 

5E 

33 

E0 

NINE 

LSR 

OPRND,X 

• 

9 

Absolute indexed by X 


|oic 

5E 

15 

E0 

NINE4 

LSR 

TW0-10H , X 

• 

9 

Absolute indexed by X 

(math) 

201F 

F9 

00 

CO 

NINE6 

SBC 

TEST, Y 

• 

9 

Absolute Indexed by Y 


1022 

F9 

20 

CO 

NINE7 

SBC 

TEST+32,Y 

• 

9 

Absolute Indexed by Y 

(math) 

P 

2025 

A5 

37 


TWO 

LDA 

LABEL, 0 

9 

Zero page 


I 027 

15 

37 



ORA 

LABEL,X,0 

• 

9 

Zero page indexed by X 


|029 

B6 

37 



LDX 

LABEL,Y,0 

• 

9 

Zero page indexed by Y 


2028 

6C 

33 

EO 

THREE 

JMP 

(OPRND) 

• 

9 

Indirect 


| 02E 

6G 

ID 

E0 


JMP 

(OPRND-16H) 

• 

9 

Indirect with math 


2031 

01 

33 



ORA 

(OPRND,X) 

• 

9 

indexed indirect 


|033 

11 

33 


OPRND 

ORA 

(OPRND),Y 

• 

9 

indirect indexed 


1 

2035 

A2 

FF 



LDX 

#0FFH 

9 

Immediate 


Jo37 

OA 



LABEL 

ASL 


* 

9 

implied 



2038 00 


BRK 


accumulator 















Miscellaneous examples 


039 A2 

37 


LDX 

#LABEL 

; Load X with address of 

LABEL 

03B 30 

F3 


BMI 

OPRND-3 

; Branch with math 


03D F0 

FD 


BEQ 

-3 

; Branch backward without 

label 

03F DO 

OA 


BNE 

10 

; Branch forward without 

label 

041..AD 

A4 

06 

LDA 

1700 

; Load from 1700 decimal 


044 AD 

23 

23 

LDA 

02323H 

; Load from 2323 hex 



Examples of the nine different kinds of errors 


omment without remembering to preceed with semi-colon 
;** invalid opcode *** 


lomment without remembering to preceed with semi-colon 
I#* invalid opcode *** 

:Q47 ** I Comment without remembering to preceed with semi-colon 


. STX NOTHING,0 

I** operand not in table *** 

S04A 86 | STX NOTHING,0 

! STX LABEL+2k,0 

*** illegal hex value in operand *** 

jo4C 86 37 I STX LABEL+2k,0 


ORA LABEL,Y,0 
I** invalid addressing mode *** 


EQU 20 

*** must have lable with EQU *** 


BPL TST 

** branch out of bounds *** 


JS04E 10 37 



BPL 

ORG 


TST 

0 






NE7 AND #1 
* multiply defined lable *** 


T ASC HELLO THERE” 

* invalid structure in ASC *** 


00 


TST ASC HELLO THERE” 


mbol table 


TEST 

COOO 

TEST2 

C001 

NINE3 

E016 

NINE 

E019 

NINE7 

E022 

TWO 

E025 

LABEL 

E037 

Comment 

E047 


tal number of errors : 9 


NINE1 

EOOO 

NINE2 

E013 

NINE4 

E01C 

NINE6 

E01F 

THREE 

E02B 

OPRND 

E033 

NINE7 

0000 

TST 

0002 





6502 Monitor Usage Information 


This document provides a detailed description of each of the 
seven functions available on the monitor. 


L - Download From External Source 

This routine allows the user to download code from an 
external device directly into the memory of the development 
system. The format used is not Intel Hex format. This 
modification probably should be made. Currently, however, it 
expects incoming data to meet the following specifications: 

All characters preceeding the first "address coming" flag 
(the > ) are ignored. Once the "address coming" flag has been 
received, the next four valid ASCII characters are converted into 
an address at which to begin storing data. Characters are then 
read from the external device, converted to a data byte, and 
stored sequentially beginning at the location specified and con¬ 
tinuing until the "end of transmission” flag (the < ) or another 
"address coming" flag is received. Any other non — valid hex 
character is ignored. Upon receiving the "end of transmission 
character control is returned to the monitor, while the "address 
coming" character causes the whole cycle to begin again. 


The incoming data is expected in pairs of characters. 
Originally error—checking was included, but in the interest of 
saving code space it was eliminated. Due to the low transmission 
rate (1200 baud), so far there have been no transmission errors. 
If there is a need to go to a higher baud rate in the future, the 
error—checking may need to be reincorporated. 


Example : 

> 0200 

AD 00 E0 8D 01 E0 

< 


start loading 
load from memory 
all done 


and write to memory 


This will cause the machine code for a load and a store to 
be loaded into memory beginning at location 0200 hex. The com¬ 
ments will all be ignored, since they are not valid ASCII charac¬ 
ters. 





Mxxxx - Examine memory beginning at location xxxx. 

This routine allows the user to examine the current contents 
of memory beginning at the location specified following the M 
command. The user can also modify what is stored at that 
location if the memory locations specified are alterable. The 
user advances to the next memory location by pressing the space 
bar. To change the value stored in a location, the user types in 
the hex values of the data to be inserted following the displayed 
contents of that location. If the user makes a mistake in 

entering data or wishes to exit this routine, pressing the 

carriage return key will cause a return to the main part of the 
monitor. 

Example : (User input represented by underlined chars) 

[ M0200 AD A9 00 <CR> 

[ M0200 A9 

In this example, the contents of memory location 0200 are 
examined, returning the hex value AD. In order to change the 

contents of that location to an A9 hex, the A9 is entered after 

the display of the AD. To verify that the change had been made, 
the carriage return key is hit and the M routine is re-entered. 
T he contents of location 0200 can now be seen to have been 
changed to A9 hex, as desired. 


Gxxxx - Begin execution at location xxxx 

This routine allows the user to execute code stored in the 
memory of the system. Usually, the code will have been down¬ 
loaded from an external source, although for short tests the code 
can be entered into memory by hand using the M command. This 
routine returns the user stack pointer to the top of page one of 
RAM, and transfers program control to the location specified by 
the xxxx value. 

Example 

G0200 ; This begins executing the code stored at 0200 


Bxxxx - Insert a breakpoint at location xxxx 

This routine allows the user to insert a software interrupt 
into a program stored in the system memory. The software 
interrupt opcode is inserted at location xxxx and the value of 
the byte at that location is saved for future replacement. 

When in the execution of the code the Break opcode is 
encountered, it will cause a software interrupt which sends the 
program to a routine that saves the current state of the machine: 




The Stack Pointer, the A, X and Y registers, the Status Register 
and the Program counter values are all stored in reserved main 
memory locations set aside by the monitor. The software 
interrupt opcode is replaced hy the value it originally 
contained. After all of this has been done, control is returned 
to the monitor. This allows the user to examine the complete 
state of the machine at the time of the software interrupt. This 
ability is extremely useful in debugging complex software. 

Example 

B0200 ; Insert a breakpoint at location 0200 


C — Continue fron last breakpoint 

This routine allows the user to continue the execution of 
his programfrom the spot at which the software interrupt was 
encountered. The users environment at the time of the interrupt 
is reconstructed from the data stored in the reserved memory 
locations and program control is given back to the interrupted 
process# This procedure allows the user to not only view the 
state of the machine when the interrupt occurred, but modify it 
as well. By changing the values of the registers and Stack 
Pointer using the R command, the user is actually modifying the 
environment that is to be reconstructed for his process. This 
allows the user great flexibility in debugging his program, since 
he can create different environments and observe how the program 
responds. 

• Example 

C ; This will continue execution of the program 


R - Display the contents of the registers 

This routine allows the user to examine and modify the 
contents of the registers as they appeared at the time of the 
last software interrupt. It is functionally identical to M 
command, with the procedural steps needed to observe and modify 
register contents being the same. The only difference is that 
the R command examines and modifies the known reserved memory 
locations containing the saved register values and tells you as 
you step through them which register value you are looking at, 
while the M command allows you to examine and modify any location 
in memory. Using the M command and knowing the location of the 
reserved memory locations allows the user to accomplish the same 
thing as using the R command, but requiring him to do it that way 
would place an unnecessary burden on the user. Instead, this 
much simpler means is provided for observing and modifying the 
state of the machine. 




Example 


.[ R X- 00 FF Y- 00 <CR> 

[ R X- FF 

This example demonstrates how to change the value in the X 
register. As stated above) the format is the same as that for 
the M command. 


H - Display Help Message 

This routine is provided for the user who wishes a list of 
the commands available to him. Since this system is designed for 
the inexperienced user, it was decided to leave this function in 
and cut down on the more complex features of a monitor. A 
monitor is.of no use if the person using it cannot make it work. 

Example 

[ I 

6502 DEVELOPMENT SYSTEM 


L 

Mxxxx 

Gxxxx 

Bxxxx 

C 

R 

H 


Download from external source 
Examine memory location xxxx 
Begin execution at location xxxx 
Breakpoint at location xxxx 
Continue from last breakpoint 
Display register contents 
This message 


Added features 


T - Execute remote memory test 

P - Print out results of test 


The last part of this message concerns the actual current 
implementation of the monitor in the development system. If the 
monitor was to be used on a different system, these added 
features would not be included. 




program assembler; 

{***************************************************************************** 

PASCAL 6502 ASSEMBLER 

WRITTEN BY MATTHEW FARRENS 
LAST MODIFIED 12/7/84 

This is a 6502 assembler written in pascal to provide a method of 
producing 6502 machine code for use in a system. It is a standard assembler, 
consisting of two passes through the assembly language program. 

On the first pass each line is parsed and the opcode, operand, and any 
label is extracted. From this information the symbol table is created and a 
new Program counter is calculated. Any errors that exist in the line are 
flagged for use by the next pass. 

The second pass also parses each line completely, but this pass uses the 
symbol table instead of creating it. It opens two files for output, the .REL 
file and the .LST file, and writes to these two files. If an error was 
detected in a line during the first pass the line is not parsed, but written 
directly to the .LST file and the screen with a description of what the error 
was. The .LST file contains the assembly language line and the associated 
machine code as calculated by this program. The .REL file just contains the 
machine code, with no comments or any other information. 

More information will appear as the program is examined further. 

*****************************************************************************} 

type char_set = set of char; 

input_string => string[80]; 
word2 » string{2]; 
word3 = string[3]; 
word4 a string[4]; 
word8 = string[8]; 
wordl4 = string[14]; 
wordl2 = string[12]; 
word70 = string[70]; 
word210 = string[210]; 
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{ These are all the available opcode values } 

all_opcodes = (clc,cld,cli,civ,dex,dey,inx,iny,nop,pha,php,pla,pip, 
rti,rts,sec,sed,sei,tax,tay,tsx,txa,txs,tya,brk,bcc,bcs,beq, 
bmi, bne,bpl,bvc,bvs,adc,unt,asl,bit,cmp,cpx,cpy,dec,eor,inc, 
jmp,jsr,Ida,ldx,ldy,lsr,ora,rol,ror,sbc,sta,stx,sty,asc,byt,equ.org, 
nmi,irq,ent,rst,bad); 

{ These are all the different available addressing modes } 

all_modes = (abz,zrp,zpx,zpy,abx,aby,ind,iix,iiy,acc,imm,rel,imp,xxx,psd, 

bte,ask,orq); 

{ These are the qualifiers that allow ease of identifying the modes } 

qual = (zerp,zerx,zery,indr,indx,indy,absl,absx,absy,immd,done); 

{ This is a record created by the first pass for each lable. This collection 
of records constitutes the symbol table. Being dynamic in nature, there is 
no waste of space, and no limit to the number of labels a program can use. } 

lable_pointer =» A lable_record; 
lable__record = record 

lable : word8; 
lable_value : real; 
next : lable_pointer; 
end; 

{ This is a record also created by the first pass. This contains error 
information about the first line. The type of error detected during 
the first pass is stored in this record. One of these is created for each 
line in the assembly language program. } 

status_pointer «* A status_record; 
status__record = record 

kind : integer; 

next : status_pointer; 

end; 




{ These are the variables used by this program, 
variables, most of which are self-explanatory 


These are all global 


} 


var 


f1,f2,f3 
filename 

in_line,in_linel 

lable_chars, valid_chars ,'skip_chars 

end_chars,operand_chars,valid_bytes 

lable,lead_in 

operand 

real__operand 

op_code,operandl,operand2 
result 

iS_label,found_label,next_valid 

valid_line , f irst__pass , quit,ok 

currentriable, lable_head , f ound_elenient 

current_status,status_head 

table : 


error_list ^ 

opcode 

multable 

ends 

mode 

threes 

accum,singles,branches 
pc,symbol_value,temp 
length_line,tot,byte_no 
errors,i,j,k,error_type 
long_string 


: text; 

: wordl4; 

: input__string; 

: char_set; 

: char_set; 

: word8; 

: word70; 

: wordl2; 

: word2; 

: word4; 

: boolean; 

; boolean; 

: lable_pointer; 

: status p ointer; 
array [all_opcodes] of word3 
array [1..10] of word70; 
all_opcodes; 

array [clc..sty,abz..imp] of 

array [qual] of word4; 

all_jnodes; 

set of all_modes; 

set of all_opcodes; 

real; 

integer; 

integer; 

word210; 


word2; 
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( **************************************************************************** 

Beginning of Procedures 

***************************************************************************** 

This procedure initializes the tables and error arrays used by the 
assembler. This is needed since pascal has no kind of Data statement like 
some other languages do. This two dimensional table makes a nice data 
structure for an assembler, since you can calculate the opcode and operand 
and tell immediately if that entry is a valid one. } 


procedure initialize; 


var i : all__opcodes; 
j : all_modes; 


begin 


{ Convert incoming ascii character string to set value } 


table[clc] :=*'CLC ? ; 
table[dex]:*’DEX'; 
table[nop]:»'NOP ’; 
table [pip ]i-'PLP' ; 
tabletsed3: = 'SED f ; 
table[tsx]:*'TSX f ; 
table[brk];»'BRK'; 

table[bcc]la'BCC*; 
tabletbne]:='BNE'; 

table[adc]: = ’ADC 1 ; 
tabletcmp]:«’CMP' ; 
tableteor3:*'EOR’; 
tablet Ida3:*'LDA * ; 
tableforaj r^'ORA'; 
table[sta3 :=* 'ST A ' ; 

table[asc]:»'ASC'; 
tabletnmi 3 :=* ' NMI' ; 
tablet bad];*' ' ; 


table[cld]:*'CLD f ; 
table[dey3:*'DEY'; 
tablefpha]:='PHA * ; 
table[rti3:“'RTI* ; 
table[sei3:='SEI' ; 
table[txa3:»' TXA *; 


tabletbcs]s*'BCS'; 
table[bpl3:=*'BPL'; 

tabletunt]:=*' AND'; 
table[cpx3:='CPX' ; 
table[inc3:='INC' ; 
table[ldx3:='LDX'; 
table[rol]: ='ROL'; 
tablefstx] : =*' STX ' ; 

table[byt] :='BYT'; 
table[irq3’IRQ' ; 


table[cli]: = ’CLI' ; 
table[inx3: = 'INX'; 
table[php3:='PHP' ; 
table[rts3:='RTS' ; 
table[tax3: = 'TAX' ; 
table[txs3:='TXS* ; 


table[beq]:='BEQ'; 
table[bvc3: = *BVC' ; 

tablefasl]:='ASL*; 
table[cpy5 :«'CPY' ; 
tabletjmp]: =' JMP'; 
tablefldy]: ='LDY' ; 
table[ror3:='ROR' ; 
table[sty3:='STY*; 

table[equ]: ='EQU '; 
table[rst3:='RST'; 


table[clv]: ='CLV ' ; 
tablefiny]:='INY'; 
tablefplaj:»'PLA'; 
tablefsec]:='SEC' ; 
table[tay]: = 'TAY *; 
tableftyaj:='TYA’; 


tabletbmi]: ='BMI'; 
tablet bvs3:='BVS'; 

table[bit]:='BIT'; 
table[dec3:='DEC'; 
table[jsr]:='JSR'; 
table[lsr3:='LSR' ; 
tablefsbc]:='SBC' ; 


table[org]: = 'ORG * ; 
table[ent3: = 1 END *; 







{ Initially, set entire array to "invalid opcode" 


} 


for i:=*clc to sty do 
for j:=*abz to xxx do 

multable[clc,imp]: = T 18 * 
multablefciv,imp 3 :=*'B8 ’ 
multablefinx,imp]: = ’E8 ’ 
pultablef pha,imp]:='48’ 
multablet pip,imp]:='28' 
multablef sec »i^P 3 5**38’ 
multableftax,imp3 'AA' 
multableftxa,imp 3:='8A' 
multable[brk,imp]:='00' 

multable[bcc,rel] :=>' 90' 
multablefbmi,rel3: =■ ’30 ' 
multablefbvc.rel]: = * 50 1 

multable[adc,abz]:=’6D 
multable[bit,abz] :=»’2C 
multable[cpy,abz]:=’CC 
multablefinc,abz]: = ’EE 
multabletlda,abz]:=’AD 
multableflsr,abz3: = ’4E 
multable[ror,abz]:*’6E 
multablefstx,abz3: = ’8E 

multable[adc,zrp]:=’65 
multable[bit,zrp] :=*’24 
multable[cpy,zrp]:=’C4 
multable[inc,zrp]: =* ’ E6 
mul tab le[ Idy, zrp ] :=»’A4 
multable[rol,zrp]:®’26 
multablefsta,zrp3:=’85 

multable[adc,zpx]:=’75 
mul table t cmp , zpx] :=*’D5 
multablefinc,zpx3: = ’F6 
multabletlsr,zpx]:=*56 
mul tablet ror , zpx ]: => ’ 76 
multable[sty,zpx]:=’94 

multable[ldx.zpy]:=’B6 

multable[adc,abx]7D 
multabletcmp,abx]: = ’DD 
multable[inc,abx]:*’FE 
multable[lsr,abx]:=’5E 
multable[ror,abx3: !a *7E 

multabletadc,aby]: ® ’ 79 
multablefeor,aby]:*’59 
multablefora,aby3:=*19 


multableti,j]:**xx' ; 

; multable[cld,imp]:»’D8*; 
; multablefdex,imp 3: = *CA’; 
; multablefiny,imp3C8’ ; 
; multablefphp,imp]: = ’08 ’ ; 
; multablefrti,imp3:='40’; 
; multablefsed,imp]:=’F8*; 
; multable[tay,imp]A8*; 
; multableftxs,imp 3:='9A’; 


; multablefbcs,rel]’80'; 
; multablefbne,rel35*’D0'; 
; multablefbvs,rel370’; 

; multable[unt,abz]:=’2D’ 
; multablefcmp,abz3:**CD’ 
; multablefdec,abz]:*’CE’ 
; multablefjmp,abz5s*'4C' 
; multable[ldx,abz]:=’AE’ 
; multablefora,abz3:='0D’ 
; multablefsbc,abz3:='ED' 
; multablefsty,abz3:=’8C' 

; multable [unt, zrp }:=■’25 ’ 
; multablefcmp,zrp5:*'C5’ 
; multable [ dec , zrp ] :=»’C6 ' 
; multablefIda,zrp3:**A5’ 
; multableflsr,zrp3:=*46’ 
; multablefror,zrp3:**66' 
; multablefstx,zrp3:=*86' 

; multable[ unt, zpx ] :=»’35’ 
; multablefdec,zpx3:=*D6' 
; multablefIda,zpxj:**B5’ 
; multablef ora , zpx ]:=*’15 ' 
; multable f sbc , zpx 5 :=»'F5 ' 


; multable[stx,zpy]:='96'; 

; multable[unt,abx}:=’3D’; 
; multable[dec,abx3:=*DE'; 
multabletIda,abx3BD’■ 
multablefora,abx3:*'ID' 
multable[sbc,abx3:=*FD' 

multabletunt,aby]:='39' 
multable[Ida,aby3:B9’ 

multablefsbc,aby3:=’F9* 


multable[cli,imp]:='58'; 
multablefdey,imp] :=’ 88 ’; 
multablefnop,imp 3: = ’EA r ; 
multablefpia,imp}:=’68*; 
multablef rts ,.irap3: = ’60'; 
multablefsei,imp 3: = * 78 ’ ; 
multablef tsx,imp]:»’BA'; 
multable[tya,imp3: = *98’ ; 


multable[beq,rel]: = ’F0’; 
multablef bp1,rel]:*'10'; 


multable[asl,abz]: = * 0E’ 
multablefcpx,abz3:*'EC' 
multablefeor,abz3:=’4D’ 
multablefjsr,abz3:**20’ 
multable[ldy,abz3:=’AC’ 
multablefrol,abz3:=’2E’ 
multablefsta,abz3’8D' 


multable[asl,zrp]:='06’ 
multabletcpx.zrpl^'EA* 
multablefeor,zrp3: = ’45 * 
multable[ld.x,zrp3 :=>’A6' 
multable[ora,zrp3:=*05* 
multablefsbc,zrp3:=’E5’ 
multablefsty,zrp3:=*84' 

multablefasl,zpx]:=’16* 
multablefeor,zpx3:=*55' 
multablefldy.zpxj: =■ ’ B4 ' 
multablefrol,zpx3:=*36' 
multablefsta.zpxj :=»*95' 


multable[asl,abx]: = *IE’; 
multablefeor,abx3:**5D'; 
multablefldy,abx3:=’BC'; 
multablefrol,abx3:=’3E'; 
multablefsta,abx3:='9D'; 

multable[cmp,aby]: = 'D9 '; 
multablefldx.abyJ^'BE* ; 
multablefsta,aby]: = ’99’ ; 
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multable[jmp,ind]:=’6C'; 

multable[adc,iix]: = * 61 * ; 
multable[eor,iix]: =' 41* ; 
multable[sbc,iix]: *' El’; 

multable[adc,iiy]:*'71' ; 
multablefeor ,iiy].: = '51' ; 
multable[sbc,iiy]:=*' FI’; 

multable[asl,acc]r^'OA'; 
multable[ror,acc]:='6A'; 

multable[adc,imm]: = f 69 T ; 
multabletcpx,imm]:=’E0'; 
mul tablet Ida, imm] :=»’ A9 * ; 
multablet ora,imm]: = '09’ ; 


multable[unt,iix]: = * 21'; 
multabletlda,iix]:='Al 1 ; 
multable[sta,iix]:=’81' ; 

multabletunt,iiy]: = 1 31* ; 
multable[lda,iiy]:= , Bl , ; 
raultable[sta,iiy]:»'91'; 

multabletlsr.acc] : =» ’ 4A ’ ; 


multable[unt,imm]:='29’; 
multable[cpy,imm]:='C0'; 
multable[ldx,imm]:■= , A2 , ; 
multable[sbc,imm]:= , E9 , ; 


multabletcmp,iix]:='C1' 
multabletora.iixit^'Ol' 


multable[cmp,iiy]:='D1' 
multable[ora,iiy] s **' 11 ’ 


multable[rol,acc]:“ , 2A l 


mul table [ cmp , imm]-; = ' C9 ' 
multablet eor,imm]: = T 49' 
multable[ldy,imm]js'AO* 


{ These are the different possible operand modifiers depending on which 
addressing mode you are in. 

ends[zerp],0 ? ; ends[zerx],X,0*; ends[zery],Y,0'; 
endsf indr ] :=» f ( ) *; endsfindx]:='(,X)'; ends [ indy ]: = '(), Y' ; 
ends[absl]'; ends[absx],X’; ends[absy]:=',Y ? ; 

ends[immd] ; 

{ These are the 9 errors that the assembler will catch. 


error_list 11]: ='*** 
error_list[2];a f *** 
error_list[3]:='*** 
error_listt4];='*** 
error_list[5 ]:=’*** 
error__list[6] ;='*** 
error_list[7];='*** 
error_list[8]:=’*** 
error_list[9];='*** 


invalid opcode *** 1 ; 
illegal hex value in operand ***’; 
operand not in table ***’; 
branch out of bounds ***’; 
multiply defined lable ***'; 
must have lable with EQU ***'; 
cannot use lable with ORG ***'; 
invalid structure in ASC ***'; 
invalid addressing mode ***'; 


end; 











{*************************************************************************** 
Advance the pointer in the.current line to the next valid character.} 

procedure skip_blanks; 
begin 

while (in_line[i] in skip_chars) do i:=i+l; 

if (in_line[i] in valid__chars) then next_valid:=true else next_valid: =*f alse 
end; 

{ *************************************************************************** 
Print out the type of error encountered, update status record if second pass 

procedure print_error; 
begin 

if first_pass then current_status A .kind:=error_type 

else 

begin 

if current_status*.kind=0 then current_status A .kind:=error_type; 
writeln; 

writeln(in_linel); 

writeln(error_list[current_status A .kind] ) ; 
writeln(f2) ; 
writeln(f2,in_linel) ; 

writeln(f2,error_list[current_status A .kind]); 
writeln(f2); 
errors :=»errors+l; 
end; 
end; 

{************************************************************************** 

Global var LABLE gets lable in line.} 

procedure get__lable; 

var j,k : integer; 

begin 

j:=»i; 

while (in_line[i] in valid_chars) do i:=i+l; 
k: =*i-j ; 

lable:=copy(in-line,j,k); 
end; 





} 


{**************************************************************************** 

Global var OPCODE gets the opcode in line. Opcode table searched, error 
flagged if invalid opcode. 

procedure get_opcode; 

var temp : word3; 

begin 

temp:=copy(in_line,i,3); 
i: =»i+3; 

opcode: =»clc; 

while (opcodeObad) and (table[opcode]Otemp) do opcode: =succ(opcode) ; 

if opcode=bad then 

begin 

error_type:*1; 
print_error; ' 
end; 
end; 
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{ *************************************************************************** 

Global var OPERAND gets operand in line. Operand means everything from the 
end of the opcode to the beginning of the comment or end of line. ASC and 
BYT have to be handled somewhat differently, since they have the potential 
of being much longer than the usual operand. 

procedure get_operand; 

var j,k : integer; 

begin 

j:=>i; 

k:*length(in_line) ; 
case opcode of 
asc ; begin 

if in_line[ i ] = "' * then { Get ascii string } 

begin 

i:^i+l; 

while (in_line[i]<>’" 1 ) and (i<k) do i:=i+l; 
operand: =copy(in_line,j + 1,i-j+1); 
end 
else 
begin 

error_type:=8; { If not pair of ”, error } 

print_error; 
end; 
end; 

byt : begin 

while in_line[i] in valid_bytes do i:=i+l; 

operand:=copy(in_line,j,i-j); { get ascii string of bytes } 

end; 

else 

while (in_line[i] in valid_chars) do i:**i+l; 
operand:=copy(in_line,j,i-j); 
end; 

operand;»operand+chr(1); 
end; 




} 


{*************************************************************************** 

Break down the line into its constituent components. This routine calls the 
routines listed above and uses them to parse the line into label, opcode and 
operand. 

procedure parse_line; 
begin 

operand' 1 ; 
skip__blanks; 

if next_valid then 
begin 

valid_line:=true; 

if (in_line[l] in lable__chars) then 

begin { if label, get it } 

is_label:*true; 
get_lable; 
end 

else is_label:=false; 
skip_blanks; 

if next_valid then get_opcode; { if opcode, get it } 

skip_blanks; 

if next_valid then get_operand; { if operand, get it } 

end 

else valid_line:=false; 
end; 


C 10 





{*************************************** Sic********************************* 

Convert real number to 4 ascii chars.} 

function conhex( value : real) : word4; 

var i,temp,temp2 : integer; 
result : word4; 

begin 

result;=''; 

{ Need to convert real number to integer number } 

if value>32767.0 then temp2:=trunc(value-65535.0)-l else temp2 : =*trunc( value) ; 

for i:=4 downto 1 do 
begin 

temp :=»temp2; 
temp:=*temp and 15; 

if temp>9 then temp:=temp+7; { convert number to hex } 

insert(chr(temp + 48),result,1) ; { convert hex to ascii } 

temp2:»temp2 shr 4; 
end; 

conhex:*result; 
end; 
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{************************************************************************* 

Convert ascii string to real number. Used to convert operands to numerical 
values. Since some operands come in as negative numbers, must trap for these 
cases. - } 

function make_number(operand : wordl2) : real; 


var. minus, wrong 

; boolean; 

i,temp,mult 

: integer; 

count,value 

: real; 

begin 



value:=0.0; 
count:=1.0; 

if operand[1]<='-' then 
begin 

minus: =*true; { If minus sign, log fact } 

delete(operand,1,1); 
end 

else minus:=false; 

temp:»length(operand); 
if operand[temp]* , H’ then 
begin 

mult:«16; { If hex number, log fact ) 

delete(operand,temp,1); 
end 

else mult:=10; 

{ This routine does the actual conversion, which differs between decimal 

and hex numbers. . ) 

wrong : =*f alse ; 

for i:»length(operand) downto 1 do 
begin 

temp : =*ord(operand [ i ] )-48 ; 

if ((mult«10) and ((temp>9) or (temp<0))) then wrong:=true; 
if temp>9 then temp:=temp-7; 

if ((temp>15) or (temp<0)) and (mult=16) then wrong:*true; 
value:*value + (count*temp); 
count: =»count*mult; 
end; 

if wrong then { If illegal value detected in string, error } 

begin 

error_type:=»2; 
print_error; 
value:=0.0; 
end 

else if minus then value;=0.0-value; { if minus, subtract } 

make__number revalue; 
end; 
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} 


{****************************** ******** ************************************** 

Parse operand and produce Global REAL_OPERAND, calculate the addressing mode 
and place in global MODE. If there is an error, MODE will leave as xxx. 

procedure parse_operand; 

var i,j : integer; 

qualifiers : word70; 
k : qual; 

begin 

mode:=xxx; 

if length(operand)=»0 then { if no operand should be one of these modes } 

begin 

if (opcode in accum) then mode:=acc else 
if (opcode in singles) then mode:=imp; 

end 

else 

begin 

if ((operand!1] = 1 #’) or (operand[1] = '(')) then i:=2 else i:«l; 
j :»i; 

while (operand[j] in operand_chars) do j:=j+l; 
if i=2 then j:=j-2 else 
real_operand:=*copy(operand,i,j) ; 
qualifiers:=operand; 

.delete(qualifiers ,i,j) ; { extract the real operand from out of this } 

j:»length(qualifiers); { mess and calculate which addressing mode } 

delete(qualifiers,j,1); 
k :=»zerp; 

while (ends[k]Oqualifiers) and (kOdone) do k:=succ(k); 


case k 

of 

zerp 

: mode:=zrp; 

zerx 

: mode:=*zpx; 

zery 

: mode:=zpy; 

absl 

: mode:=abz; 

absx 

: mode:=abx; 

absy 

: mode:=saby; 

indr 

: mode:=«ind; 

indx 

: mode:=iix; 

indy 

: mode:=iiy; 

immd 

: mode:*imm; 


end; 
end; 

if (opcode in branches) then 

if ((mode=abz) or (mode=imm)) then mode:=rel; 

end; 
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{ *******5}:**#***#*****#**************************************I******:}!********** 

Search the symbol table for the occurance of target, Global SYMBOL_VALUE gets 
value of lable in table. Globals FOUND_ELEMENT, FOUND__LABLE also affected.} 

procedure search_lable(target : wordl2); 

var temp : lable_pointer; 

. tempi,temp2 : integer; 
temp3,tail : wordl2; 
temp4 : real; 

begin 

tempi:»length(target) ; 

{ Since math is allowed in operand, must trap for imbedded operators. } 

temp2:=pos(’+',target); 

if terap2*0 then-temp2: = pos(target) ; 

if temp2<>0 then 

begin 

temp3:«copy(target,l,temp2-1) ; 

tail: “Copy( target, temp 2 , templ-temp2+l ) ; 

target:=temp3; 

if tail[l]“'+' then delete( tail, 1,1) ; 
end; 

{ Once the actual label part of the opcode is extracted, look for it } 

temp: =*lable_head; 
found_element;= temp; 
found_label;=false; 

while (temp*.next <> nil) and (not found_label) do 
begin 

found_element:=temp; 

if temp A .lable » target then found_label:“true; 
temp:“temp A .next; 
end; 

symbol_value:*found_element A .lable_value; 

if temp2<>0 then symbol_value:=symbol_value+raake_number(tail); 
end; 
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( ******** ************************************************* * ******** Sic ********* 

Put new entry in symbol table.} 

procedure fill_lable(symbol : word8; value : real); 

var temp : lable p ointer; 

begin 

new(temp); 

with current_lable A do 
begin 

lable:=symbol; 
lable_value:=value; 
next: =*terap; 
end; 

temp*.next;«nil; 
current_lable:=feemp; 
end; 

{ ************************************************************************* 

Move the current status pointer to the next record. Initialize status to 
-1 so that items after the END statement will still be written to .LST file } 

procedure update_status; 

var temp : status_pointer; 

begin 

new(temp); 
temp* . next ;=»nil; 
temp*.kind:*~1; 
current_s tatus*.next:stemp; 
current_status: =»temp; 
end; 
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{*******************Sj^****************************************************** 

Calculate the ascii value of opcode, place it in Global 0P_C0DE. Calculate 
the amount to increment the pc,, place in Global BYTE_NO.) 

procedure calc_opcode; 

begin 

if mode=xxx then op_code'xx* 

else 

begin 

op_code:=multable[opcode,mode]; 

if opcodes'xx* then 

begin 

error_type:=9; { If illegal opcode, flag error } 

print_error; 
end; 

case mode of ^ { calculate PC offset } 

abz,abx,aby,ind : byte_no:=>3; 
imm,zrp,iix,iiy,zpx,rel,zpy : byte_no:=2; 
acc,imp : byte_no:=*l; 
end; 
end; 
end; 


C 16 




{************************************************************************* 
Calculate the second and third bytes of the instruction, if they exist.} 

procedure calc_operand; 

var real_temp,real_temp2,value : real; 
return_value : real; 

.specials : set of all_modes; 
result : word4; 

begin 

specials:*[acc,imp,psd,orq,ask,bte,xxx]; 
operaiidl 1 ; 
operand2: =*' 1 ; 

if not (mode in specials) then 
begin 

if real_operand[1] in lable_chars then 
begin 

{ if the real operand is a label, treat differently than if number } 
search_lable(real_operand); 

if not found_label then { undefined label error } 

begin 

error_type:=3; 
print_error; 
end 
else 
begin 

if modeOrel then result:=conhex(symbol_value) 
else 

begin ( if branch, calculate offset } 

value:=symbol_value-pc-2.0; 
if (value<-128.0) or (value>l27.0) then 
begin 

error_type:=4; { if offset to big, error } 

print_error; 
end 

else result:=conhex(value+32768.0); 
end; 

operandl :=*copy(result, 3,2) ; 

if (mode in threes) then operand2:=copy(result,1,2) ; 
end; 
end 
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else { if not label, easier to deal with } 

begin 

value :s»make_number ( real_operand ) ; 

if modeOrel then 

begin 

result :=*conhex( value) ; 
operandl:=copy(result,3,2); 

if byte_no»3 then operand2:=copy(result,1,2); 
end 
else 
begin 

if (value<-128.0) or (value>127.0) then 
begin 

error_type:*4; { same problem with branches } 

print_error; 
end 

else operand1: =»copy ( conhex( value+32768.0),3,2); 
end; 

end; ' \ 

end; 

lead_in:=op_code+' '+operandl+' *+operand2; 
end; 

{fc*****^*******************************************************************#* 

Some instructions do not have addressing modes; this function assumes none 
exist in the operand and does a straight calculation of the operand. This is 
usually used by the Pseudo-opcodes. } 

function get_value : real; 

begin 

delete(operand,length(operand) , 1) ; 
if operand[l] in lable_chars then 
begin 

search_lable(operand); 

if not found_label then { Search for label in symbol table ) 

begin 

error_type:»3; 
print_error; 
end 

else get_value:=symbol_value; 
end 

else get_value:=make__number(operand) ; 
end; 


{ ******$*************##*************#***********’I'********************* ***# 

Print out to the files in proper format. Global LENGTH_LINE affected.} 

procedure print__spc(which : word210) ; 

var i : integer; 
temp ; word70; 

. terap2 : word210; 

begin 

temp2:*which; 
i:=length(which); 
while i>70 do 
begin 

terap:=copy(which,1,69); 
writeln(f2,temp); 
delete(which,1,69); 
i :*length(which) ; 
end; 

if i>0 then writeln(f2,which); 

i :*length( temp2) ; 
j :»69-length_liiie; 
while i>j do 
begin . 

temp:*copy(temp2,1,j); 
writeln(f3,temp); 
delete(temp2,1,j); 
length_line:=0; 

; 

j:*69-1ength_line; 
end; 

write(f3,temp2); 

length_line;*length_line+length(temp2); 
end; 
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{**************************************************************************** 
Send a copy of the symbol table to both the .LST file and the screen. } 

procedure output_symbol_table; 

var temp : lable_pointer; 
i : integer; 

begin 

temp: =»lable_head; 
i :=0; 
writeln; 
writeln(f2); 

writeln('symbol table'); 
writeln(f2,'symbol table'); 
writeln; 
writeln(f2); 

while temp * . nextOnil do 
begin 

write(temp A .lable:8, ' . ',conhex(temp *.lable_value),' '); 

write(f2,temp A .lable:8, ' ',conhex(temp A .lable_value),' '); 

i:=»i+l; 

if (i mod 4)=0 then 
begin 

writeln; 
writeln(f2) ; 
end; 

temp:=temp A .next; 
end; 

writeln; 
writeln(f2); 
end; 

j ************************************************************************* 

Print to the rel file, Global LENGTH_LINE incremented.) 

procedure print_j:el(which : word2); 

begin 

if length_line>69 then 
begin 

writeln(f3) ; 
length_line: =*0; 
end; 

write(f3,which+' '); 

length_line:=length_line+3; 
end; 
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{************************************************************************* 

Open input file, traps for illegal file names.} 

procedure open_infile(var filename : wordl4; var fl : text); 

var ok : boolean; 

begin 

repeat 

write('Enter name of file : ’); 
readln(filename); 
assign(fl.filename); 

{$1-} reset(fl) {$1+}; 
ok:»(ioresult=-0) ; 

if not ok then writeln(’file '.filename,' not found’); 
until ok; 
end; 

{ *********************************** **************************** *********** 
Open output files.} 

procedure open_outfile(filename : wordl4; var f2,f3 : text); 

var list_f ile, rel__ file : wordl4; 
i : integer; 

begin 

i:=pos('.’.filename); 

if i<>0 then filename:=copy(filename,1,i-1); 
list_file:»filename+’.1st’; 
rel_file:=filename+'.rel’; 
assign(f2,list_file); 
assign(f3,rel_f ile); 
rewrite(f2); 
rewrite(f3); 
end; 


C 21 





Beginning of main program. 

sit****************************************************************************} 


{ Create all the necessary sets and records and initialize everything that 
needs initializing 


} 


begin 

valid_chars:*[ , a , .. , z , , , A , .. , Z' 
lable_chars:=valid_chars - [’O’ 
skip_chars :=*[’ * , *: * ,chr(9) ]; 
operand_chars :«=lable_chars+[ ’O' 
valid_bytes:=[’A’..'F’.’H’.'O'. 
singles:=[clc..brk]; 
branches :=«[bcc.. bvs]; 
accum:»[asl f lsr,rol,ror]; 
threes:=»[abz,abx f aby,ind]; 



N » t * i . i »_» »i*» I . 
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new(current_lable) ; 
current_lable A .next:*>nil; 
lable_head:«*current_lable; 
new(current_statua); 
current_status A .next:=nil; 
current_status A .kind:=-l; 
status_head:»current_status; 

pc:=0; 
tot:=0; 

error_type:»0; 
quit:=false; 

initialize; { Creates all the tables and arrays used by the program } 

open_infile(filename,fl); { Open the input file } 

first_pass:»true; 
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{ Do for all of file } 


while (not eof(fl)) and (not(quit)) do 
begin 

readln(fl,in_line); 
in_line:*in_line+chr(l) ; { append end-of-line character } 

write('.'); 

tot:=tot+l; { Give user idea of what line is being processed } 

if (tot mod 70)»0 then writeln; 

error_type:«0; 

i : =»1; 

{ Parse_line calls other procedures that wind up completely parsing the line.} 
parse__line; 

{ Valid^line is a flag that represents the validity of the line (no errors) } 

if valid_line"then 
begin 

current_status A .kind:=0; { If no errors then set no error flag } 

if is_label then 

begin 

search_lable(lable); { If label then check for multiply defined } 

if found__label then 

begin 

error_type:=5; { If multiply defined then error } 

print_error; 

end; {found_label} 

end; {is_label} 


C 23 




case opcode of 


{ Calculate new PC in these routines } 


equ : begin 

if not is_label then 
• begin 

error_type: =*6; { Must be label with EQU statement } 

print_error; 

end {not is_label} 

else fill_lable(lable,get_value); { Update symbol table ) 

end; {equ} 

org ; pc: *=get_value; { Set PC to new value } 

asc : begin 

if is_label then fill_lable(lable,pc); 

pc:=pc+(length(operand)-3); { First pass just calc PC } 
end; 

{ This is messy routine due to way byt instruction specified. Need to count 
number of bytes in instruction so PC can be properly incremented. } 


byt : begin 

j • — Q * 

if is_label then fill_lable(lable,pc); {Update table if lable} 

k:=»pos(chr( 1) .operand) ; 

insert(' , ',operand,k); 

while operandf1]<>chr(1) do 

begin 

k:=«pos(','.operand) ; 
delete(operand,1,k); 
j:=j+l; 

end; {operand[l]} 

pc :=»pc+j; 

end; {byt} 


irq.nmi.rst : ; { These Pseudo-ops unaffected by first pass } 

ent : quit:=true; { If END then stop processing } 


else 

if 


{ Not a Pseudo-op } 

is_label then fill_lable(lable , pc) ; { Fill 


table if 


lable 


} 


parse_operand; 

calc_opcode; 

pc:=pc+byte_no; 
end; 
end; 

update__status; 

end; {pass one} 


{ Get real operand out of instruction line } 

{ Calculate the number of bytes in the instr } 

{ Increment the PC by the proper value } 

(case opcode} 

{valid line} 

{ Update this line's error status record } 


writeln; 

writeln('end of pass one'); 
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reset(fl); { Reset file so we can go through it again } 

open_°utfil e (filename,f2,f3); { Open the two output files } 
first p ass :=>f alse ; 

current_status:=status_head; { Point back at first record of error status } 

length__line : = 1; 
errors: =*0; 

tot:=0; { Reset relevant values } 

pc:=0; 

while not eof(fl) do { do for all of input file } 

begin 

i: =1; 

readln(fl,in-line); { Get line from file and tack on end char } 

in_linel :=»in_line; 
in_line :=»in_line+chr (1) ; 

write(': f ); 

tot:*tot+l; { Give user something to look at } 

if (tot mod 70)=0 then writeln; 

case current_status A .kind of 

{ This is where the information from the first pass is used. If there was not 
an error in the first pass, the record corresponding to the current line 
will contain a 0. If the first line was a comment or a blank line, the 
value will be a -1. If the value is neither of these, the value is the 
error number and will be used to display the proper error message. } 

-1 : writeln(f2, f | ’,in_linel); { comment or blank line } 

1. .9 : begin 

error_type:*current_status A .kind; { Error in first pass } 
print_error; 

end; {errors} 
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{ parse line again } 


0 : begin 

parse_line; 

case opcode of 

{These Pseudo-ops are treated together, since they all require an output to 
the .REL file. } 

org,nmi,irq,rst : 
begin 

if opcode=org then 
begin 

pc:=get_value; { Calculate new PC } 

result:*conhex(pc); 
end 

else result:=conhex(get_value); 

writeln(f2,result,’ | ',in_linel); 

{ These are the routines that write to the .REL file } 

case opcode of 

nmi : begin 

writeln(f3); 
writeln(f3,’> FFFA'); 

writeln(f3,copy(result,3,2),copy(result,l,2)) 
end; 

irq : begin 

writeln(f3); 
writeln(f3,*> FFFE'); 

writeln(f3,copy(result,3,2),copy(result,l,2)); 
end; 

rst : begin 

writeln(f3) ; 
writeln(f3,'> FFFC * ) ; 

writeln(f3,copy(result,3,2),copy(result,l,2)); 
end; 

org : begin 

writeln(f3); 

writeln(f3,’> result); 
end; 

end; 

length__line :=0; 
end; {org} 

{ No calculations needed for second pass equ statement } 

equ : writeln(f2,conhex(pc) , ’ | r ,in_linel); 

ent,equ : ; {No second pass work here either } 
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{ For both asc and byt, on this pass we need to not only update the PC 
properly, but also calculate what it is that is to be put out to the 
output file. These are both messy routines during this pass. For both of 
them the proper pair or single ascii characters must be picked out and then 


converted into the proper hex byte value 
asc 


} 


• , in__linel ) ; 


begin 
j 2 * 1 5 

writeln(f2,conhex(pc), ’ 
long_string :=»**; 
while operand[j]<> 1 "’ do 
begin 

long_string :=long__string+ 

copy(conhex(ord(operand[j])),3,2)+' '; 

j :=»j + l; 

end; {operand[j]} 

pc:=pc+j-l; 

print_spc(long_string) ; 
end; {asc} 


byt 


| 1 ,in_linel); 


begin 
j *• =*0; 

writeln(f2,conhex(pc),* 
long_string:*'’; 
k:»pos(chr(l),operand); 
insert( 1 ,operand,k); 
while operand[ 1 ]Ochr( 1) do 
begin 

k:=pos(',*,operand); { each byte seperated by comma} 

lon g string:=long string+ 

copy(conhex(make_number(copy(operand,l,k-l))),3,2)+ f '; 

delete(operand,l,k); 

end; {operand[l]} 

pc:=pc+j; 

print_spc(long_string); 


end; 

else 

parse_operand; 
calc_opcode; 
calc_operand; 


{byt} 

{ Extract real operand } 

{ Calculate the opcode value } 

{ Calculate the second and third bytes of inst} 


writeln(f 2,conhex(pc) , ' , ,lead_in+' | '+in_JLinel ) ; 
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{ This prints to the output file .REL depending on how many bytes were in the 
instruction. } 

case byte_no of 

1 : begin 

print_rel(op_code); 
pc : ==pc+l. 0 ; 

end; {one} 

2 : begin 

print_rel(op_code); 
print_rel(operandl); 
pc:=pc+2.0; 

end; {two} 


3 : 


end; 
end; 
end; 

end; 

if current_status A 
end; 


begin 

print_rel(op_code); 
print_rel(operandl); 
print_rel(operand2) ; 
pc:=pc+3.0; 

end; {three} 

[case byte_no} 

[case opcode} 

[no error} 

{case current_status} 

nextOnil then current_status:=current_status 

{pass two} 


next; 


writeln(f3); 

writeln(f3,'< ? ); { "End of file" marker for .REL file } 

writeln(f3); 


output_symbol_table; { output symbol table to screen and .LST file } 

writeln(f2); 
writeln; 

writeln(f 2 , * total number of errors : errors); 

writeln(* total number of errors : errors); 


close(f2); 
close(f3); 
end. 


{file} 











***************************************************************************** 

MONITOR PROGRAM FOR 6502 SYSTEM 

WRITTEN BY MATTHEW FARRENS 
LAST MODIFIED 11/28/84 

For proper monitor operation, following minimum memory requirements 
must be met: 

RAM: 0000-01FF 

EPROM (MONITOR): F800-FBFF (not including TEST and RESULT programs) 

SERIAL DEVICE: C000 (assumes 6850 UART) 

PTM : E000 (to provide transmission clocks to UART) 

MONITOR resides in entire 1 K section from F800-FC00H, and uses locations 
00E0-0110 in RAM. 

# ******** ******* sis******* ****** ******* sic********#*#***#*# sis**:)!*#*##***** ******** 


BUFF: 

•EQU 

OEOH 

ADRS: 

EQU 

0E2H 

LOAD.: 

EQU 

0E4H 

CHECK: 

EQU 

0E5H 

MSGS1: 

EQU 

0E7H 

BRK: 

EQU 

0E9H 

BRKADR: 

EQU 

OEAH 

STRPOS: 

EQU 

OECH 

RESET: 

EQU 

OEDH 

EX: 

EQU 

OFOH 

WHY: 

EQU 

0F1H 

EH: 

EQU 

0F2H 

STATUS: 

EQU 

0F3H 

SPNT: 

EQU 

0F4H 

LOBYTE: 

EQU 

0F5H 

HIBYTE: 

EQU 

0F6H 

MSG: 

EQU 

0F8H 

CUART: 

EQU 

OCOOOH 

DUART: 

EQU 

0C001H 

PTM 

EQU 

OEOOOH 


MEMORY LOCATIONS USED BY MONITOR 


LOCATIONS USED BY BREAK ROUTINE 


; PROGRAMMABLE TIMER MODULE 




REGS: 

STRING: 
BRKMSG: 


ORG 

BYT 

ASC 

BYT 

ASC 

BYT 

ASC 

BYT 

ASC 

BYT 

ASC 

BYT 

ASC 

BYT 

ASC 

BYT 

ASC 

BYT 

ASC 

BYT 

ASC 

BYT 

ASC 


0F800H 5 START MONITOR AT BEGINNING OF EPROM 

ODH,OAH,OAH 

" 6502 DEVELOPMENT SYSTEM” 

ODH,OAH,OAH 

”L - Download from external source” 

ODH,OAH 

"Mxxxx - Examine memory location xxxx” 

ODH.OAH 

"Gxxxx - Begin execution at location xxxx” 

ODH.OAH 

"Bxxxx - Breakpoint at location xxxx” 

ODH.OAH 

”C - Continue from last breakpoint” 

ODH.OAH 

"R - Display register contents” 

ODH,OAH 

”H ^ - This message" 

ODH,OAH,OAH 

"Added features" 

ODH,OAH,OAH 

”T - Execute remote memory test” 

ODH.OAH 

”P - Print out results of test" 


BYT ODH,OAH,OAH,00 

BYT 58H,00,59H,00,41H,00,53H,00,53H 
BYT 50H,00,50H,43H,4CH,00,50H,43H,48H,00 

BYT ODH,20H,5BH,0AH,0DH 

BYT ODH.OAH 

ASC "Hit Breakpoint” 

BYT ODH,OAH,00 




_;- ROUTINE TO HANDLE SOFTWARE INTERRUPT (BRK) —-- 

; On execution of software break instruction (00 hex) program execution 

; begins here, since 6502 treats BRK as a kind of IRQ. Here registers, 

; status reg, stack pointer and program counter at time of break are 

; saved. Due to way Break is handled, program counter must be 

; decremented by two before saving. 

BREAK: STX EX,0 

STY WHY,0 ; SAVE REGISTER VALUES 

STA EH,0 

PLA 

STA STATUS,0 ; SAVE STATUS REG 

PLA 

STA L0BYTE,0 ; SAVE LOW BYTE OF PROGRAM COUNTER 
PLA 

STA HIBYTE,0 ; SAVE HIGH BYTE OF PROGRAM COUNTER 
TSX 

STX SPNT,0 ; SAVE THE STACK POINTER 

DEC LOBYTE,0 
BNE BREAK1 

DEC HIBYTE,0 ; ADJUST FOR WAY BRK IS HANDLED 
BREAK1: DEC LOBYTE,0 

LDX #0EH 

TXS ; POINT STACK AT WHERE WE WANT IT 

LDX #0 

LDA BRK,0 ; PICK UP WHAT WAS AT LOCATION 

STA (BRKADR,X) ; PUT IT BACK WHERE IT CAME FROM 

BREAK2: LDA BRKMSG,X 

BEQ START ; SEND MESSAGE THAT BREAKPOINT HAS BEEN HIT 

JSR SEND 

INX 

BNE BREAK2 
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RESET ENTRY POINT 


; • Program comes here on reset. UARTs are reset and initialized, 

; and stack pointer is set to very lowest part of the stack. 

; If we have been here once, the introductory message is not printed. 

; Otherwise, the welcoming message is produced. 

; Save regs and stack pointer, cannot access program counter 

OPEN: STA EH,0 

STX EX,0 

STY WHY,0 ; SAVE REG VALUES 

PHP 

PLA 

STA STATUS,0 ; SAVE STATUS REG 

TSX 

STX SPNT,0 ; SAVE STACK POINTER 

LDA #83H ; FIRST CONTROL 2 REG 

STA PTM+1 

LDA #0 

STA PTM ; INITIALIZE THE PTM 

STA PTM+2 

LDA #25 

STA PTM+5 ; SET UP THE PTM FOR COMMUNICATIONS 

LDA #03 

STA CUART ; RESET UART 

LDA #01 

STA CUART ; 7 BITS 2 STOP BITS EVEN PARITY 1200 BAUD 

LDX #0EH 

TXS ; MONITOR ONLY USES BOTTOM OF STACK 

LDX #0 

STX BRK,0 ; CLEAR BREAK HOLDER 

LDX RESET,0 
CPX #0EDH 

BEQ START ; IF WE HAVE BEEN HERE ONCE, SKIP MESSAGE 

LDX #0EDH 
STX RESET,0 

OPEN1: LDX #MSG 

STX MSGS1+1,0 

LDX #0 ; SET UP MEMORY FOR DISPLAYING OF MESSAGE 

STX MSGS1,0 
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INTRO: 


9 


START: 


MAIN1: 


MAIN2: 


LDA (MSGSl.X) 

BEQ START ; NULL (00) IS END OF STRING 

JSR SEND ; ELSE SEND VALUE 

INC MSGS1.0 
BNE INTRO 

INC MSGS1+1,0 ; DO UNTIL DONE 

BNE INTRO 

- STANDARD ENTRY POINT 


This is where the prompt is printed and the keystroke is decoded 
and interpreted. If not one of the legal commands, print prompt 
again and start over. 


LDX 

#04 




LDA 

STRING,X 




JSR 

SEND 

• 

9 

SEND 

SIGN ON STRING 

DEX 

- 




BNE 

START+2 




LDA 

#0 




STA 

L0AD,0 

• 

9 

CLEAR LOAD FLAG INDICATING WE ARE NOT IN DOWNLOAD 

JSR 

ECHO 

m 

9 

GET 

CHAR FROM TERMINAL AND SEND IT BACK OUT 

CMP 

#47H 




BEQ 

GO 

9 

"6" 

IS GO (RUN PROGRAM) 

CMP 

#4DH 




BEQ 

EXAM 

• 

9 

"M" 

IS EXAMINE MEMORY 

CMP 

#48H 




BEQ 

0PEN1 

• 

9 

"H" 

IS SEND HELP MESSAGE 

CMP 

#42H 




BEQ 

BRKPT 

9 

"B" 

IS ENTER BREAKPOINT 

CMP 

#43H 




BEQ 

CONT 

• 

9 

"C" 

IS CONTINUE FROM LAST BREAKPOINT 

CMP 

#52H 




BEQ 

REG 

• 

9 

M R" 

IS DISPLAY REGISTER VALUES AT LAST BREAK 

CMP 

#54H 




BNE 

MAIN1 




JMP 

MEMTST 

• 

9 


IS RUN MEMORY TEST PROGRAM (OPTIONAL) 

CMP 

#50H 




BNE 

MAIN2 



IS PRINT RESULTS PROGRAM (ALSO OPTIONAL) 

JMP 

RESULT 

• 

9 

t» p tt 

CMP 

#4CH 

• 

9 

"L" 

IS LOAD PROGRAM 

BNE 

START 

• 

9 

IF NONE OF ABOVE, INVALID COMMAND 

JMP 

DNLOAD 
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TRANSFER CONTROL ROUTINE 


GO: 


This routine gets the address to start executing at and transfers 
control to that location after resetting the stack pointer to 
the top where it belongs, and loading regs. 


JSR 

ADLOAD 

LDX 

TXS 

#OFFH 

LDA 

PHA 

ADRS+1,0 

LDA 

PHA 

ADRS.O 

JMP 

CONTI 

\ 


; GET THE ADDRESS TO TRANSFER CONTROL TO 

; PUT STACK POINTER BACK AT TOP 

; PUSH HIGH ADDRESS ONTO STACK 

; PUSH LOW BYTE OF ADDRESS ONTO STACK 
; PUSH STUFF AND START EXECUTING 


- ROUTINE TO CONTINUE FROM LAST BREAKPOINT - 

This routine allows the program to resume exection from where the 
last breakpoint occured. It restores all the registers and the 
stack pointer and transfers control to the original location. 


CONT: 

LDX 

SPNT,0 




TXS 


9 

PUT STACK POINTER BACK WHERE IT WAS 


LDX 

#0 




STX 

BRK, 0 

• 

9 

CLEAR BREAK LOCATION 


LDA 

HIBYTE,0 




PHA 


• 

9 

PUSH HIGH BYTE ON STACK 


LDA 

LOBYTE,0 




PHA 


• 

9 

PUSH LOW BYTE ON STACK 

CONTI: 

LDA 

STATUS,0 




PHA 


• 

9 

PUSH STATUS REG ON STACK 


LDA 

EH, 0 




LDX 

EX, 0 




LDY 

WHY, 0 

• 

9 

RESTORE REGISTERS 


RTI 


• 

9 

PICK UP WHERE WE LEFT OFF 
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; - ROUTINE TO EXAMINE MEMORY - 

; This routine displays the contents of the requested memory location 

; and allows the user to change the value stored at that location if 

; so desired. 

EXAM: JSR ADLOAD ; GET ADDRESS TO DISPLAY 

LDA #20H 

JSR SEND ; PRINT SPACE 

EXAM1: JSR PRNT ; DISPLAYS WHAT IS STORED AT ADLOAD AND ALLOWS USER 

JMP EXAM1 ; TO CHANGE VALUE IF NEEDED. 


; --- ROUTINE TO ENTER BREAKPOINT - 

; This routine is where a breakpoint is entered. The value that 

; was stored at the desired location is saved so that it can be 

; restored on execution of the Break. 

BRKPT: JSR ADLOAD ; GET DESIRED ADDRESS OF BREAK 

LDA ADRS,0 

STA BRKADR.O ; STORE WHERE BREAK IS 
LDA ADRS+.l, 0 
STA BRKADR+1,0 

LDX #0 

LDA (ADRS, X) 

STA BRK,0 ; STORE WHAT WAS THERE 

TXA 

STA (ADRS,X) ; PUT BREAK IN AT PROPER LOCATION 

JMP START ; DONE WITH ROUTINE, START AGAIN 
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ROUTINE TO DISPLAY LAST CONTENTS OF REGISTERS 


This routine displays the saved values of the registers and 
the stack pointer and the program counter at the time of the 
last software Break instruction. Simply running this routine 
without a Break instruction being executed first will not give 
an accurate picture of the registers at the time of the command. 


REG: 

LDA 

#EX 

• 

f 

PICK UP WHERE REGISTERS ARE STORED 


STA 

ADRS,0 




LDA 

#0 




STA 

ADRS+1,0 

• 

9 

SET UP MEMORY CONTENTS FOR SUBROUTINES 


STA 

STRPOS,0 

• 

9 

CLEAR STRING COUNTER 


LDA 

#20H 




JSR 

SEND 

* 

9 

SEND SPACE 

REGO: 

LDX 

STRPOS,0 



REG1: 

LDA 

REGS,X 




BEQ 

REG2 

• 

9 

PICK UP VALUE TO SEND, SEND UNTIL NULL 


JSR 

SEND 




INX 





BNE 

REG1 



REG2: 

INX 





STX 

STRPOS,0 

9 

POINT AT NEXT STRING TO TRANSMIT 


LDA 

#3DH 




JSR 

SEND 

• 

9 

SEND THE = 


JSR 

PRNT 

• 

9 

SEND VALUE OF REGISTER AND CHANGE IF DESIRED 


LDA 

#HIBYTE 




CMP 

ADRS,0 

• 

9 

SEE IF WE HAVE DONE ALL YET 


BPL 

REGO 

• 

f 

DO FOR ALL REGS 


JMP 

START 

• 

9 

ALL DONE WITH REGS, START AGAIN 
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DOWNLOAD FROM EXTERNAL SOURCE ROUTINE 


This routine reads from the Serial Port and loads into memory 
as determined by commands imbedded in the incoming data. 

This is definitely NOT INTEL Hex format. There is no formal 
parity checking. In this routine, upon receipt of a ">" the 
program interprets the next 4 ascii characters as a memory 
lacation at which to begin the storing of data. "<" is the 
"end of file" marker. This routine is left when the "<" is 
received and control is returned to the monitor. 


DNLOAD: 

DEC LOAD , 0 

• 

9 

SET NO ECHO FLAG, DON’T ECHO TO INCOMING FILE 

TMP5: 

JSR ECHO 

9 

GET CHAR 


CMP #3EH 

• 

9 

COMPARE TO > 


BNE TMP5 

9 

9 

WAIT UNTIL IT COMES IN 

TMP6: 

JSR ADLOAD 

• 

t 

GET THE 16 BIT ADDRESS 

TMP7: 

LDX #2 




STX CHECK,0 

9 

WE ARE WAITING FOR 2 ASCII CHARS 

GETR: 

JSR ECHO 

• 

9 

GET CHAR 


CMP #3EH 

• 

9 

COMPARE TO > 


BEQ TMP6 




CMP #3CH 

• 

9 

COMPARE TO < 


BNE TMPO 




JMP START 

• 

9 

IF SO, ALL DONE AND START OVER 

TMPO : 

JSR VALID 

• 

9 

SEE IF INCOMING CHAR IS VALID HEX 


BNE TMP7 

• 

9 

IF NOT, GET NEW STUFF 


DEC CHECK,0 




BEQ TMP8 

9 

9 

IF VALID, SEE IF WE ARE IN MIDDLE OF NIBBLES 


ASL 




ASL 




ASL 




ASL 

• 

9 

SHIFT INTO HIGH NIBBLE 


STA BUFF,0 

• 

9 

STORE TEMPORARILY 


JMP GETR 

• 

9 

GET SECOND HALF OF BYTE (NEXT CHAR) 

TMP8 : 

ORA BUFF , 0 

9 

9 

PICK UP HIGH NIBBLE 


LDX #0 

9 

9 

CLEAR X 


STA (ADRS , X) 

9 

9 

STORE IN PROPER PLACE 


INC ADRS , 0 

• 

) 

INCREMENT LOW BYTE 


BNE TMP9 




INC ADRS+1,0 

• 

9 

INCREMENT HIGH BYTE 

TMP9 : 

JMP TMP7 

9 

GO BACK AND GET NEXT THING 
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SUBROUTINES 


aassssasaasasa 


PRNT: 


NEXTO: 

INK: 

PRNT1: 


: : : : SUBROUTINE TO DISPLAY LOCATION & GET NEW ONE IF THERE ::::::: 


This is a heavy duty subroutine. It calls several others in the 
line of duty. This subroutine first sends out the value of the 
memory location stored at addr,addr+l. Then it sends a delimitering 
space, and checks the incoming char. If the incoming char is also 
a space, that indicates that the next sequential memory location is 
to be displayed. If the incoming char is a valid hex digit, it is 
assumed that the value stored at addr,addr+l is to be replaced by 
the incoming value. If the incoming char is a nonvalid hex digit, 
it assumes you screwed up and returns you to the main monitor. 


REGS DESTROYED: 

JSR DSPLY 

LDA #20H 
JSR SEND 

JSR ECHO 

CMP #20H 
BEQ NEXTO 

LDX #1 
JSR GOTONE 

LDX #00 
STA (ADRS,X) 

LDA #20H 
JSR SEND 

JMP INK 

LDA #08 
JSR SEND 

INC ADRS,0 
BNE PRNT1 

INC. ADRS+1,0 

RTS 


X,Y,A 

; DISPLAY THE VALUE AT THE MEMORY LOCATION 

; SEND DELIMITERING SPACE 
; GET AND ECHO CHAR 

; IF SPACE, DISPLAY NEXT MEMORY LOCATION 
; IF VALID HEX, WE WILL RETURN, ELSE ABORT 
; STORE NEW VALUE IN MEMORY LOCATION 
; SEND SPACE 

; GO TO NEXT MEMORY LOCATION 

; SEND A BACKSPACE CHAR 
; INC LOW BYTE 

; IF ROLLOVER, INC HIGH BYTE 
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::::::::: GET TWO ASCII CHARS, PRODUCE SINGLE BYTE ::::::::: 

Routine to take two ascii chars and make them into a singe 8bit 
byte. 


•, 

9 

REGS 

DESTROYED: 


X,Y,A 


GETBYT: 

LDX 

#1 

• 

9 

SET COUNTER 


TMP2: 

JSR 

ECHO 

• 

9 

GET CHAR AND ECHO 


GOTONE: 

JSR 

VALID 

• 

9 

SEE IF VALID HEX DIGIT 



BEQ 

TMP4 

• 

9 

IF NOT, SEE WHICH ROUTINE 

CALLED 


LDX 

LOAD,0 





BEQ 

OUT 

• 

9 

IF NOT LOADING FROM FILE, 

ERROR 


CMP 

#20H 

• 

9 

SEE IF IT IS A SPACE 



BEQ 

GETBYT 

• 

9 

WAIT FOR FIRST VALID CHAR 

AFTER > 

OUT: 

LDX 

#0EH 

• 

9 

SET X TO TOP OF MONITOR STACK 


TXS 


• 

9 

SET STACK POINTER BACK TO 

TOP OF STACK 


JMP 

START 

• 

9 

START OVER DUE TO ERROR. 


TMP4: 

STA 

BUFF , X , 0 

9 

STORE IN BUFFER 



DEX 






BPL 

TMP2 

• 

9 

DO FOR BOTH BYTES 



LDA 

BUFF+1,0 

• 

9 

PICK UP FIRST BYTE 



ASL 






ASL 






ASL 






ASL 


• 

9 

MOVE INTO HIGH NIBBLE 



ORA 

BUFF , 0 

• 

9 

OR IN LOW NIBBLE 



STA 

BUFF , 0 

• 

9 

STORE IN BUFFER. 



RTS 
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SEE IF CHAR IN A IS VALID HEX CHAR 


Subroutine to check validity of hex char. If char is not in hex 
bounds then Y reg is set to minus one. If incoming char is in 
legal hex char set, then Y reg is set to zero. 


• 

9 

REGS 

1 DESTROYED: 


Y, A 

VALID: 

CMP 

#47H 

• 

9 

TEST FOR GREATER THAN F. 


BPL 

NOGOOD 




CMP 

#30H 

• 

9 

TEST FOR LESS THAN 0. 


BMI 

NOGOOD 




CMP 

#3AH 

• 

9 

TEST FOR DIGIT. 


BMI 

OK 




CMP 

#41H 




BPL 

FIX ' 




BMI 

NOGOOD 

• 

9 

IF BETWEEN 3A AND 41, WRONG : 

FIX: 

CLD 





SEC 





SBC 

#07 

• 

9 

MAKE LETTER VALID HEX DIGIT. 

OK: 

AND 

#0FH 




LDY 

#00 




RTS 


• 

f 

CLEAR OFF TOP END, SET Y AND 

NOGOOD: 

LDY 

#-l 




RTS 


• 

9 

SET Y TO INVALID, RETURN. 


::::::::::: LOAD 4 ASCII CHARS INTO 16 BIT ADDR ::::::::::: 

This is another subroutine that calls others. This subroutine 
gets four valid ascii characters and stores them as an address, 
in the standard 6502 form of low byte followed by high byte. 
However, it assumes the address is coming in "right" (i.e. high 
byte followed by low byte). 

REGS DESTROYED: X,Y,A 


ADLOAD: 


JSR GETBYT 
STA ADRS+1,0 

JSR GETBYT 
STA ADRS,0 

RTS 


; GET HIGH BYTE OF ADDRESS 
; STORE IN HIGH BYTE 

; GET LOW BYTE OF ADDRESS 
; STORE IN LOW BYTE 

; ALL DONE 
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. ........... SUBROUTINE TO DISPLAY BYTE AS TWO ASCII CHARS ::::::::::::: 

; This subroutine actually has two entry points. The monitor always 

; enters at DSPLY, since it always wants at least two consecutive 

; ascii characters sent at the same time. However, the test program 

enters at DSPLY1 since it only wants to send characters one at a time. 

; REGS DESTROYED: X,A 

DSPLY: LDX #00 

LDA (ADRS,X) ; PICK UP THE BYTE 

DSPLY1: PHA ; SAVE ON STACK 

LSR 
LSR 
LSR 
LSR 

JSR ASKIZ ; ASCIIIZE THE HIGH NIBBLE 

PLA ; GET ORIGINAL VALUE BACK 

AND #0FH ; CLEAR OFF TOP NIBBLE 

JSR ASKIZ ; ASCIIIZE THE LOW NIBBLE 

JSR CHKIN ; SEE IF CHARACTER HAS COME IN 

.RTS 


; :::::::::::::::::: SUBROUTINE TO MAKE NIBBLE ASCII :::::::::::::: 

; This subroutine converts the value stored in the A register into 

; a valid ascii character. 

; REGS DESTROYED: A 

ASKIZ: ORA #30H ; SET ASCII BIT 

CMP #3AH ; SEE IF LETTER 

BMI SEND ; IF NOT, RETURN 

CLC 

ADC #07 ; IF SO, ADD 7 
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; SEND CHARACTER IN A REG :::::::::::::: 

; This routine sends out whatever is in the A reg to the UART. 

; It waits (unnecessarily?) for the UART to finish the last 

; transmission before starting a new one. 

; REGS DESTROYED: NONE 

SEND: PHA ; SAVE A REG 

LDA CUART 
AND #2 

BEQ SEND+1 ; STANDARD WAIT UNTIL TXBUF EMPTY 

PLA 

STA DUART ; SEND IT 

RTS 


:::::::::::::::: CHECK FOR INCOMING CHARACTER :::::::::::::::::: 

This routine checks for an incoming character. If there is 
•one it checks to see if it is a control S (suspend transmission). 
If it is, we wait here until the control Q comes in allowing us to 
resume transmission. If a character is waiting, we load it into 
the A reg and set all bits high in X. If nothing is waiting X 
remains all clear. 

REGS DESTROYED: A,X 


CHKIN: LDA CUART 

AND #1 

BEQ CHKIN1 ; IF NO CHAR, THEN RETURN 

LDX #0FFH ; SET ALL BITS HIGH INDICATING CHAR BEEN RECEIVED 

LDA DUART 

CMP #13H ; CHECK FOR CONTROL S 

BNE CHKIN1 

CHKIN2: LDA CUART 

AND #1 ; WAIT FOR INCOMING CONTROL Q 

BEQ CHKIN2 

LDA DUART 

CMP #11H ; IF NOT CONTROL Q, WAIT 

BNE CHKIN2 

LDX #0 ; IF A S A Q PAIR, PRETEND NOTHING HAPPENED 

CHKIN1: RTS 
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ECHO CHAR, IF NOT IN LOAD MODE 


; Subroutine to get character from UART, save it, and echo the char 

; back out to the UART so the sender knows it was received. 

;• REGS DESTROYED: A 

ECHO: LDA CUART 

AND #1 

BEQ ECHO ; STANDARD WAIT FOR CHAR 

LDA DUART ; GET CHAR 

AND #7FH 5 CLEAR OFF TOP BIT 

PHA ; SAVE CHAR ON STACK 

LDA LOAD,0 

BEQ SEND+1 ; IF WE ARE ECHOING, SEND CHAR 

PLA ; IF WE ARE LOADING, DO NOT SEND BACK OUT. 

RTS ; POP A OFF TOP OF STACK 

. jit*************************************************************************** 

; ^ End of Monitor Program 

. **************************************************************************** 
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MAIN MONITOR PROGRAM 







SOFTWARE INTERRUPT ROUTINE 



E 2 















RESET ENTRY ROUTINE 



Return to START 










G-RUN A PROGRAM 


> 



Return to START 


E 4 








M - EXAMINE MEMORY 




Get Low 
Byte & 
Store it 



Print 

Space 

y 

Display 
Value in 
Memory 


Put New 
Chars in 
Memory 


Get Chars 
From 
Terminal 



Send 
Ba ckspace 
Character 



Return to START 


E 5 


Increment 

Memory 

Location 










H-HELP MESSAGES 



Set up . 
Memory 
with 

Messages 
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B-ENTER A BREAKPOINT 









c-continue from breakpoint 




l/l 


Return to user’s 
int er r upte d program 







DISPLAY REGISTERS 











T- MEMORY TEST PROGRAM 
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P-PRINT RESULTS OF MEMORY TEST 



































************************************************************ s ! !: i t: ^* ! * t! ® t *** 5 * t ****** 


MEMORY TEST PROGRAM 
WRITTEN BY MATTHEW FARRENS 
LAST MODIFIED 12/8/84 


This is the Remote Memory testing program written to allow testing 
of static RAM chips while they are undergoing irradiation. 

The testing algorithm used is the Nair, Thatte and Abraham testing 
procedure. 

**************************************************************************** 


Set up our programming environment 


PIA1AP EQU 0D800H 
PIA1AC EQU 0D801H 
PIA1BP EQU 0D802H 
PIA1BC EQU 0D803H 


PIA ports for input and output 


PIA2AP 

EQU 

0D000H 

PIA2AC 

EQU 

0D001H 

PIA2BP 

EQU 

0D002H 

PIA2BC 

EQU 

0D003H 

CUARTM 

EQU 

0C000H 

DUARTM 

EQU 

0C001H 

PTM1 

EQU 

0E000H 

ADLOW 

EQU 

00 

ADCOUNT 

EQU 

03 

SHFTCNT 

EQU 

04 

TYPE 

EQU 

05 

MASK 

EQU 

06 

DIRECT 

EQU 

07 

ERCOUNT 

EQU 

08 

PASS 

EQU 

OAH 

BUFFPT 

EQU 

ODH 

LASTPAS 

EQU 

OFH 

TIME 

EQU 

12H 


Uart for I/O 

Timer module for keeping track of time into run 

Used as a marker to clear low memory 

Count of number of 256 byte pages per memory chip 

Count of number of bits in byte 

Number of writes to memory to do (0,1,2) 

Bit in the byte we are dealing with 

Direction of memory traversal 

Number of errors counted this time through 

Number of times test has been executed 

Pointer to next available spot in error buffer 

Number of errors found during last pass through test 

Beginning time of memory test 


BEGBUF EQU 2 
ENDBUF EQU 10H 


End of transmission buffer 


PIA1AP = low 8 bits of address 

PIA1BP * data: high nibble is input, low nibble is output 
PIA2AP = control lines and upper address (WE CS 0E X X X A9 A8) 

A7 A6 ... AO 


F 1 











***************************************************************************** 

Program initialization 

***************************************************************************** 


ORG 0FC00H 

MESS ASC "Remote memory test program" 

BYT 0DH,0AH,0AH 

ASC "Enter starting time of test : " 

BYT 0 

MEMTST LDA #0 

STA PIA1AC 

STA PIA1BC ; Talk to direction registers in PIAs 

STA PIA2AC 

LDA #0FFH 

STA PIA1AP ; A ports are both output ports 

STA PIA2AP 

AND #0FH 

STA PIA1BP ; B port has upper nibble inputs, lower outputs 

LDA #04 
STA PIA1AC 

STA PIA2AC ; Now we want to talk to the ports themselves 

LDA #36H ; CB2 output starts low 

STA PIA1BC 

STA PIA2BC ; CB1 input set to trigger on rising edge of signal 

LDA #0 

STA PTM1+1 ; Start by talking to Control Register 3 

LDA #80H 

STA PTM1 ; Configure #3 to count on incoming signal 

LDA #83H 

STA PTM1+1 ; Configure #2 to count E clocks 

LDA #82H 

STA PTM1 ; Also configure #1 to count E clocks 

LDA #0 
STA PTM1+4 

LDX #25 ; Initialize #2 for UART use (52 uSec cycle time) 

STX PTM1+5 

STA PTM1+6 

LDX #24 ; Initialize #3 for -5 second cycle time 

STX PTM1+7 





; Initialize #1 for 100 mSec cycle time' 


LDA #0C3H 
STA PTM1+2 
LDA #4FH 
STA PTM1+3 

LDX #13H 
LDA #0 

LOOP STA ADL0W,X,0 ; Clear low part of memory 
DEX 

BPL LOOP 
LDA #BEGBUF 

STA BUFFPT+1,0 ; Initialize BUFFPT to beginning of error buffer 

JSR CRLF ; Prepare to send message 

LDX #0 

MESOUT LDA MESS.X 

BEQ D0NE1 ; Send beginning message to terminal 

JSR SENDM 

INX 

BNE MESOUT 

D0NE1 JSR GETIME ; Get starting time for reference 

JSR CRLF ; Send carriage return-line feed 



**************************************************************************** 

Here we wait until 5 seconds has expired. By doing this, we can 
ensure that the number of times through the test * 5 is the number 
of seconds into the run. This is also the "entry" point into the 
program. We jump to here after every pass. 

**************************************************************************** 


WAIT LDA PIA2BC 
BPL WAIT 
LDA PIA2BP 


Get the clock toggle 
Wait for 5 second timer 

When 5 seconds up, read port to clear timer flag 


**************************************************************************** 

The actual remote memory testing program sequence begins here. 

The first 4 sequences provide the test for all stuck-at faults 
in the memory array, decoder and memory address register 
First, the entire memory array must be set to zero 

**************************************************************************** 


CLEAR LDX #0 

JSR INIT 


; What is to be written out 
; Clear all of test memory 








SEQ1 LDY #0 

LDA #1 ; Read low, write high from beginning to end 

STA TYPE,0 
JSR COUNTUP 

LDY #1 
LDA #0 

STA TYPE,0 ; Read high, write nothing from end to beginning 

JSR COUNTDN 


SEQ2 LDY #1 
LDA #1 

STA TYPE,0 ; Read high, write low from beginning to end 

JSR COUNTUP 

LDY #0 
LDA #0 

STA TYPE,0 ; Read low, write nothing from end to beginning 

JSR COUNTDN 


SEQ3 LDY #0 
LDA #1 

STA TYPE,0 ; Read low, write high from end to beginning 

JSR COUNTDN 

LDY #1 
LDA #0 

STA TYPE,0 ; Read high, write nothing from beginning to end 

JSR COUNTUP 


SEQ4 LDY #1 
LDA #1 

STA TYPE,0 ; Read high, write low from end to beginning 

JSR COUNTDN 

LDY #0 
LDA #0 

STA TYPE,0 ; Read low, write nothing from beginning to end 

JSR COUNTUP 
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***************************************************************************** 


These next four sequences provide the coupling fault coverage. 
***************************************************************************** 


SEQ5 


SEQ6 


SET 


LDY #0 
LDA #2 
STA TYPE,0 
JSR COUNTUP 

LDY #0 
LDA #0 
STA TYPE,0 
JSR COUNTDN 


LDY #0 
LDA #2 
STA TYPE,0 
JSR COUNTDN 

LDY #0 
LDA #0 
STA TYPE,0 
JSR COUNTUP 


LDX #OFFH 
JSR INIT 


; Read low, write high-low from beginning to end 


; Read low, write nothing from end to beginning 


; Read low, write high-low from end to beginning 


; Read low, write nothing from beginning to end 


; Set all of test memory high 


SEQ7 


SEQ8 


LDY 

#1 




LDA 

#2 

; Read 

high, 

write 

STA 

TYPE,0 




JSR 

COUNTUP 




LDY 

n 




LDA 

#0 




STA 

TYPE,0 

; Read 

high, 

write 

JSR 

COUNTDN 





LDY 

#1 




LDA 

#2 




STA 

TYPE,0 

; Read 

high, 

write 

JSR 

COUNTDN 




LDY 

#1 




LDA 

#0 




STA 

TYPE,0 

; Read 

high, 

write 

JSR 

COUNTUP 





low-high from beginning to end 


nothing from end to beginning 


low-high from end to beginning 


nothing from beginning to end 









**************************************************************************** 


;. This is the end of the 8 step memory test procedure. Now some 

; housekeeping must be done, such as updating the error buffer if 

; a different number of errors were found this time, incrementing 

; the pass counter, etc. 

!***********************************************************.***************** 
f 

INC PASS,0 

BNE FINISH1 ; Increment counter containing number of times 

INC PASS+1,0 ; memory test has been executed 

; Check current error count to error count from last pass 

FINISH1 LDA LASTPAS,0 

CMP ERC0UNT,0 ; Compare number of errors detected on this pass 
BNE FINISH2 ; to number detected during last pass 

LDA LASTPAS+1,0 

CMP ERCOUNT+1,0 ; If different, update the error buffer 
BEQ FINISH3 

; If different number of errors, update error buffer and send new 

; values to screen 

FINISH2 LDX #3 ; Clear indexing offset 

LDY #0 

UPDATE LDA ERC0UNT,X,0 ; Pick up number of errors detected on this pass, as 

STA (BUFFPT),Y ; well as number of pass, and put these values to 

JSR DSPLY1M ; the error buffer and the screen 

INC BUFFPT,0 

DEX ; Do for all 4 bytes 

BPL UPDATE 

JSR CRLF ; Send out carriage return-line feed for viewing ease 

LDA BUFFPT,0 ; Get low address of next buffer location 

BNE FINISH4 ; If non-zero, no wrap-around yet 

INC BUFFPT+1,0 ; If low address zero, need to increment high address 
LDA BUFFPT+1,0 

CMP #ENDBUF ; Test to see of we are at end of available buffer 

BNE FINISH4 ; If at end of buffer, quit 

JMP OPEN 
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; Since we are done with this pass, update last pass error count and 

; zero current error count 

FINISH4 LDA ERCOUNT,0 

STA LASTPAS,0 ; Transfer low byte 

LDA ERCOUNT+1,0 

STA LASTPAS+1,0 Transfer high byte 
FINISH3 LDA #0 

STA ERCOUNT,0 ; Clear the error counter 

STA ERCOUNT+1,0 


LDA PIA1BC 

EOR #8 ; This toggles the LED to indicate test is still 

STA PIA1BC ; going 

JMP WAIT ; Go and execute the test again 
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SUBROUTINES. 


**************************************************************************** 

Initialize Test Memory Subroutine 

This subroutine will set the entire test memory to whatever value is 
sent to it in the X reg. It will be used twice, once to clear the 
test memory and once to set the entire memory high. 

Regs Destroyed : A 

**************************************************************************** 


INIT 

LDA 

STA 

LDA 

STA 

#0B0H 

PIA2AP 

#0 

PIA1AP 


LDA 

STA 

#4 

ADCOUNT,0 

INIT1 

STX 

PIA1BP 


LDA 

AND 

STA 

PIA2AP 

#1FH 

PIA2AP 


ORA 

STA 

#OBOH 

PIA2AP 


INC 

BNE 

PIA1AP 

INIT1 


INC 

DEC 

BNE 

PIA2AP 
ADCOUNT,0 
INIT1 


RTS 



Initialize the address pointers 


We will do 1024 locations 

store char out to port 

pick up control lines 
drop all three 
send them to RAM 

set control lines back high 
send them to RAM 

Increment next address counter 
If less than 255, continue 

If greater than 255, increment high address counter 
Check to see if we are done with IK 
If not, continue 


Return to those who invoked us 






f 

( 


**************************************************************************** 

Traverse Test Memory Subroutine 

This subroutine does all the work. Here we traverse the memory 
either up or down and do all the reads and writes desired by the 
calling routine. 

The Y reg contains the type of value a read expects to find. If Y 
contains a 0, the routine expects a read to return a low value, and if 
the Y reg contains a 1, a high value is expected. If a value other 
than the expected one is returned, an error is indicated. 

The memory word TYPE contains the number of writes to be performed 
following the read operation. It can take on the values 0, 1, and 2, 
corresponding to no writes, one write or write—write. The value 
written by the subroutine is always the opposite of what it read 
from the memory location. In the case of the two writes, in inverts 
twice, so the memory location winds up containing what it started 
with. 

The memory word DIRECTION contains the mode of memory traversal. If 
DIRECTION is zero, we are traversing memory from the highest address 
to the lowest, and if DIRECTION is non-zero we are traversing from 
the bottom up. 

! ************************************************ ***#=!:*#****** ******** ******* 
Set up necessary conditions for beginning to end traversal 


COUNTUP LDA #0 

STA PIA1AP 
LDA #0B0H 
STA PIA2AP 
STA DIRECT,0 
BNE TESTPRO 


If we are counting up, we will want to 
begin at the beginning of the test memory 
and go until the end 

Set up high address lines and control lines 
Non-zero is count up 


Set up necessary conditions for end to beginning traversal 


COUNTDN LDA #0FFH 
STA PIA1AP 
LDA #0B3H 
STA PIA2AP 
LDA #0 

STA DIRECT,0 


; If counting down, begin at end of test memory 
; and count down 

; Set up high address lines and control lines 
; Zero is count down 
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TESTPRO 

UP1 

I 

» 

I 

GET 

READLOW 

BAD 

NEXT 


This is the actual traversal code jj 

LDA #4 

STA ADCOUNT,0 ; We will do 1024 locations 


LDA #80H 
STA MASK,0 
LDA #4 

STA SHFTCNT.O 


; Set the high bit in the memory word 
; This tells us which bit we are looking at 
; We are going to do the 4 bits in the memory word 
; from left to right. 


This is the inner loop that continually gets the word from the test 
memory and increments the error counter based on expected values vs. 
returned values 


LDX PIA1BP 
TXA 


get character 
Move it to A reg 


CPY #0 
BEQ READLOW 


See if we are expecting a high or low value 
If low, go to part that expects low value 


AND MASK,0 
BNE NEXT 
BEQ BAD 


Check to see value came back high as we expected 
If not, increment error counter 


AND MASK,0 
BEQ NEXT 


We should read a low value 
If we do, no error 


TXA 

EOR MASK,0 
TAX 


; Move the va'lue we read into the A register so we 
; can set the bit to the value it was supposed to 
; be so that writes will write the right value 


INC ERCOUNT,0 

BNE NEXT ; If there was an error, increment the error 

INC ERC0UNT+1,0 ; counter for this pass 


LDA TYPE,0 
BEQ DONE 


Do we want to write back out? 
If not, do not 


TXA 

EOR MASK,0 

TAX 

LSR 

LSR 

LSR 

LSR 


• Move what we got back into A so we can manipulate it 
; Change state of selected bit 

• Put it back in X in case we want a second write 


; Move it down into lower nibble 


STA PIA1BP 


store char out to port 


LDA PIA2AP 
AND #1FH 
STA PIA2AP 


; pick up control lines 
; drop all three 
; send them to RAM 


ORA #0B0H 
STA PIA2AP 


set control lines back high 
send them to RAM 
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LDA 

TYPE,0 

• 

t 

Do we want to do two.writes? 

CMP 

#2 

• 

f 

If not, do not 

BNE 

DONE 



TXA 


• 

9 

Move what we got back into A so we can manipulate it 

EOR 

MASK,0 

• 

9 

Change state of selected bit 

LSR 




LSR 




LSR 


• 

9 

Move it down into lower nibble 

LSR 




STA 

PIA1BP 

• 

9 

store char out to port 

LDA 

PIA2AP 

• 

9 

pick up control lines 

AND 

#1FH 

• 

9 

drop all three 

STA 

PIA2AP 

9 

send them to RAM 

ORA 

#0B0H 

• 

9 

set control lines back high 

STA 

PIA2AP 

5 

send them to RAM 


Here we have finished working with a bit and are ready to proceed 
to the next one 


DONE LSR MASK,0 ; Shift bit it mask one place to right 

PEC SHFTCNT,0 ; Count of how many times we have shifted it 

BNE GET ; We want a total of 4 shifts within same word 


Here we have finished with one word and are ready to start on a 


• 

1 

new 

word 




LDA 

DIRECT,0 

9 

Check for direction of memory traversal 


BNE 

UP 

• 

9 

Non-zero represents upward 


DEC 

PIA1AP 

• 

9 

Decrementing through memory, decrement 


LDA 

PIA1AP 

• 

9 

address counters 


CMP 

#0FFH 

* 

1 

If wrap-around, decrement upper byte 


BEQ 

NEXT1 


In-line code has become to long for simple branches 


JMP 

UP1 

• 

9 

NEXT1 

DEC 

PIA2AP 




DEC 

ADCOUNT,0 

• 

9 

Check for completion of traversal 


BEQ 

BACK 




JMP 

UP1 

• 

9 

Not done, do again 

UP 

INC 

PIA1AP 

• 

9 

Increment next address counter 


BEQ 

UP3 




JMP 

UP1 

• 

9 

If less than 255, continue 

UP3 

INC 

PIA2AP 

• 

9 

If greater than 255, increment high address counter 


DEC 

ADCOUNT,0 

* 

Check to see if we are done with IK 


BEQ 

BACK 

• 

* 

If done, exit 


JMP 

UP1 

• 

9 

If not, continue 

BACK 

RTS 
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**************************************** ******* **** **** a******** ********* ’i'**!'* 

The following routines are only for doing terminal I/O and have 
nothing at all to do with the actual memory testing program 

**************************************************************************** 

**************************************************************************** 

Get starting time 

This subroutine gets four characters from the serial device and 
stores them as the starting time of the run 

Regs Destroyed : X,Y,A 

**************************************************************************** 


GETIME: 

LDX 

#3 

TIM2: 

JSR 

ECHOM 


STA 

DEX 

TIME,X,0 


BPL 

TIM2 


RTS 



; Set counter 

; Get character from serial device and echo it 

; Store it in beginning time location 
; Do until done 

; Go back 


**************************************************************************** 

Send Byte as Two Ascii Chars 

This subroutine takes the byte in the A register and transmits it as 
two ascii characters to the serial device. 

Regs Destroyed : X,A 

**************************************************************************** 


DSPLY1M PHA 
LSR 
LSR 
LSR 
LSR 

JSR ASKIZM 
PLA 

AND #0FH 
JSR ASKIZM 

RTS 


; Save the value on the stack 
; Move it into lower nibble 

; Asciiize the lower nibble (this also send the char) 

; Get the original value back from the stack 
; Clear off the top nibble 

; Asciiize the low nibble and send char again 
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**************************************************************************** 

Get Character from UART and echo it 

This subroutine gets a character from the serial device, echos it, 
and sends it back out to the UART so the sender knows it was received. 

Regs Destroyed : A 

************** *************** ******* ********************************* ******:}= 


ECHOM: LDA CUARTM 

AND #1 ; Wait for incoming character 

BEQ ECHOM 


LDA DUARTM 
AND #7FH 
PHA 

JMP SENDM+1 


Load Character 

Clear off parity bit 

Save it on stack 

Send it back as it came in 


**************************************************************************** 

Convert byte into a valid ascii character 

This subroutine converts the value stored in the A register into 
a valid ascii character. 

Regs Destroyed : A 

**************************************************************************** 


ASKIZM: ORA #30H 

CMP #3AH 
BMI SENDM 

CLC 

ADC #07 


; Set Ascii bit 

; Check for letter 
; If not, send it as it is 

; If it is a letter, we must make it a valid ascii 
; letter 
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. **************************************************************************** 

; Send character to serial device 

; This routine sends out whatever is in the A reg to the UART. 

; It waits (unnecessarily?) for the UART to finish the last 

; transmission before starting a new one. 

; Regs Destroyed : NONE 

I**************************************************************************** 

SENDM: PHA ; Save the A reg on the stack 

LDA CUARTM 

AND #2 ; Wait until transmit buffer is empty 

BEQ SENDM+1 

PLA ; Get character to be sent back from the stack 

STA DUARTM ; Send the char 

RTS 


. *****************************************************4********************** 
; Send Carriage return - Line feed 

; For ease of viewing, many CR-LF combinations must be sent. In order 

; to make the code more readable, this subroutine has been added. It 

; performs the transmission of the CR-LF pair. 

; Regs Destroyed : A 

! **************************************************************************** 

CRLF LDA #ODH ; Load up the carriage return value 

JSR SENDM ; Send it to serial device 

LDA #0AH ; Load the line feed value 

JSR SENDM ; Send it to serial device 

RTS ; All done 
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**************************************************************************** 


Print Error Buffer 


t 


Program 


This program is essentially autonomous in that it is not needed to j 

execute the memory test program. However, it is included with the | 

memory test program since it uses some of the same variables and j 

is used to print out the results of the memory test. j 

( 

**************************************************************************** \ 


PRNTBF 

EQU 

00 


0R6 

0FF00H 

RESULT 

LDA 

#BEGBUF 


STA 

PRNTBF+1,0 


LDA 

#0 


STA 

PRNTBF,0 


JSR 

CRLF 


LDX 

#3 

TMEOUT 

LDA 

TIME,X,0 


JSR 

.DEX 

SENDM 


BPL 

TMEOUT 


JSR 

CRLF . 


LDY 

#4 

COMPAR 

LDA 

PRNTBF,0 


CMP 

BUFFPT,0 


BNE 

OUTER 


LDA 

PRNTBF+1,0 


CMP 

BUFFPT+1,0 


BEQ 

QUIT 

OUTER 

LDX 

#0 


LDA 

(PRNTBF,X) 


JSR 

DEY 

DSPLY1M 


BNE 

0UTER2 


JSR 

CRLF 


LDY 

#4 

0UTER2 

INC 

PRNTBF,0 


BNE 

COMPAR 


INC 

PRNTBF+1,0 


BNE 

COMPAR 

QUIT 

JMP 

OPEN 


; Location used by the print routine 
; start us at new known location 


; Initialize the print routines memory locations 
; to the same ones the memory test used 
; (point us at the start of the error buffer) 

; Send carriage return-line feed 


; The first thing sent out by this print routine is 
; the time the memory test was started. 


; See if the next location to be printed is the same 
; as the next open slot in the error buffer. If so, 

; we may be done printing 

; Compare high bytes of the address. If equal, we are 
; -definitely done printing 

; Pick up value stored at location pointed at by 
; PRNTBF and send it to serial device 

; Do for the four characters to be sent 

; Send for appearance sake 

; Move print buffer pointer to the next location 
; in the error buffer 

; Increment the high order address byte of the 


; when all done printing, quit 
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**************************************************************************** 

End of print results program. All that remains is to set up 
interrupts. 

**************************************************************************** 
RST OPEN ; ON RESET, GO TO INITIALIZE STUFF 

IRQ BREAK ; ON SOFTWARE INTERRUPT, GO HERE 

END 
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MEMORY TEST ERROR CHECKING ROUTINE 













T-MEMORY TEST PROGRAM 



Initialize 

Time 

ect. 


Wait for 
5 second 
Sync 
Signal 


Do Memory 
Test 

Sequences 

1-8 


/rfo. oiV 
' Errors ^ 
On Last Pass 
s» Errors on 
\ Present / 


Update 

Error 

Buffer 


r Display ' 
Pass Number & 
vNo. of Errors 


Increment 


Pointer 


Present 
Pass Err 
Counter 


Set No. of 

Y 

Errs Last 


Pass =» No. 

^ o of 

of Errs in 

■ ^\Buffer 

Present 

Nvy- 

Pass 

li 

Return to Monitor /" 


To indicate 
Test cont. 














P-PRINT RESULTS OF MEMORY TEST 








MEMORY MAP 

• 

CHIP SELECTS 

ADDRESS 

BLOCK 

SYSTEM DEVICE 


SELECTED 

ENABLED 

CS31 

0F800H - 

OFFFFH 

SYSTEM EPROM 

CS30 

OFOOOH - 

0F7FFH 


CS29 

0E800H - 

OEFFFH 


CS28 

OEOOOH - 

OE7FFH 

6840 PTM 

CS27 

0D800H - 

ODFFFH 

6821 PIA #1 

CS26 

ODOOOH - 

OD7FFH 

6821 PIA #2 

CS25 

0C800H - 

OCFFFH 

6850 UART (SPARE) 

CS24 

OCOOOH - 

OC7FFH 

6850 UART 

CS23 

0B800H - 

OBFFFH 


CS22 

OBOOOH - 

OB7FFH 


CS21 

0A800H - 

OAFFFH 


CS20 

OAOOOH - 

OA7FFH 


CS19 

09800H - 

09FFFH 


CS18 

09000H - 

097FFH 


CS17 

08800H - 

08FFFH 


CS16 

08000H - 

087FFH 


CS15 

07800H - 

07FFFH 


CS14 

07000H - 

077FFH 


CS13 

06800H - 

06FFFH 


CS12 

06000H - 

067FFH 


CS11 

05800H - 

05FFFH 


CS10 

05000H - 

057FFH 


CS09 

04800H - 

04FFFH 


CS08 

04000H - 

047FFH 


CS07 

03800H - 

03FFFH 


CS06 

03000H - 

037FFH 


CS05 

02800H - 

02FFFH 


CS04 

02000H - 

027FFH 


CS03 

01800H - 

OlFFFH 


CS02 

OlOOOH - 

017FFH 


CSOl 

00800H - 

OOFFFH 

SYSTEM RAM 

CSOO 

OOOOOH - 

007FFH 

SYSTEM RAM 

All select 

lines produced 

by the two 

74154 4-16 decoders 



HI 




A/s> ■ 
y> rj- 



CPU AND DECODER LOGIC 
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